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POLICY: PASCAL NEWS 



(15-Sep-80) 



* Pascal News is the official but informal publication of the User's Group. 

* Pascal News contains all we (the editors) know about Pascal; we use it as 
the vehicle to answer all inquiries because our physical energy and 
resources for answering individual requests are finite. As PUG grows, we 
unfortunately succumb to the reality of: 

1. Having to insist that people who need to know "about Pascal" join PUG 
and read Pascal News - that is why we spend time to produce it! 

2. Refusing to return phone calls or answer letters full of questions - we 
will pass the questions on to the readership of Pascal News . Please 
understand what the collective effect of individual inquiries has at the 
"concentrators" (our phones and mailboxes). We are trying honestly to say: 
"We cannot promise more that we can do." 

* Pascal News is produced 3 or 4 times during a year; usually in March, Dune, 
September, and December. 

* ALL THE NEWS THAT'S FIT, WE PRINT. Please send material (brevity is a 
virtue) for Pascal News single-spaced and camera-ready (use dark ribbon and 
18.5 cm linesT) 

* Remember: ALL LETTERS TO US WILL BE PRINTED UNLESS THEY CONTAIN A REQUEST 
TO THE CONTRARY. 

^ Pascal News is divided into flexible sections: 

POLICY - explains the way we do things (ALL-PURPOSE COUPON, etc.) 

EDITOR'S CONTRIBUTION - passes along the opinion and point of view of the 
editor together with changes in the mechanics of PUG operation, etc. 

HERE AND THERE WITH PASCAL - presents news from people, conference 
announcements arid reports, new books and articles (including reviews), 
notices of Pascal in the news, history, membership rosters, etc. 

APPLICATIONS - presents and documents source programs written in Pascal 
for various algorithms, and software tools for a Pascal environment; news 
of significant applications programs. Also critiques regarding 
program/ algorithm certification , performance , standards conformance , 
style, output convenience, and general design. 

ARTICLES - contains formal, submitted contributions (such as Pascal 
philosophy, use of Pascal as a teaching tool, use of Pascal at different 
computer installations, how to promote Pascal, etc.). 

OPEN FORUM FOR MEMBERS - contains short, informal correspondence among 
members which is of interest j:o the readership of Pascal News . 

IMPLEMENTATION NOTES - reports news of Pascal implementations: contacts 
for maintainors, implementors, distributors, and documentors of various 
implementations as well as where to send bug reports. Qualitative and 
quantitative descriptions and comparisons of various implementations are 
publicized. Sections contain information about Portable Pascals, Pascal 
Variants, Feature-Implementation Notes, and Machine-Dependent 
Implementations . 
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Membership fee and All Purpose Coupon is sent to your Regional 
Representative. 

See the Policy section on the reverse side for prices and 

ALTERNATE ADDRESS if you are located in the European or 
Australasian Regions. 

Membership and Renewal are the same price. 

Note the discounts below, for multi-year subscription and renewal. 
The U. S. Postal Service does not forward Pascal News. 
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JOINING PASCAL USER'S GROUP? 



- Membership is open to anyone: Particularly the Pascal user, teacher, 
maintainer , implementor, distributor, or just plain fan. 

~ Please enclose the proper prepayment (check payable to "Pascal User's 
Group"); we will not bill you. 

- Please do not send us purchase orders; we cannot endure the paper work! 

- When you join PUG any time within a year: January 1 to December 31, you 
will receive all issues of Pascal News for that year. 

- We produce Pascal News as a means toward the end of promoting Pascal and 
communicating news of events surrounding Pascal to persons interested in 
Pascal. We are simply interested in the news ourselves and prefer to share 
it through Pascal News. We desire ,to minimize paperwork, because we have 
other work to do. 



- American Region (North and South America): Send $10.00. per year to the 
address on the reverse side. International telephone: 1-404-252-2600. 

- European Region (Europe, North Africa, Western and Central Asia): Join 
through PUG (UK) . Send £5.00 per year to: Pascal Users Group, c/o Computer 
Studies Group, Mathematics Department, The University, Southampton S09 5NH, 
United Kingdom ; or pay by direct transfer into our Post Giro account 

(28 513 4000); International telephone: 44-703-559122 x700. 

- Australasian Region (Australia, East Asia - incl. Japan): PUG(AUS). Send 
$A10.00 per year to: Pascal Users Group, c/o Arthur Sale, Department of 
Information Science, University of Tasmania, Box 252C GPO, Hobart, Tasmania 
7001, Australia . International telephone: 61-02-23 0561 x435 



PUG(USA) produces Pascal News and keeps all mailing addresses on a common 
list. Regional representatives collect memberships from their regions as a 
service, and they reprint and distribute Pascal News using a proof copy and 
mailing labels sent from PUG (USA). Persons in the Australasian and European 
Regions must join through their regional representatives. People in other 
places can join through PUG(USA). 

RENEWING? 

- Please renew early (before November and please write us a line or two to 
tell us what you are doing with Pascal, and tell us what you think of PUG 
and Pascal News . Renewing for more than one year saves us time. 

ORDERING BACK ISSUES OR EXTRA ISSUES? 

- Our unusual policy of automatically sending all issues of Pascal News to 
anyone who joins within a year means that- we eliminate many requests for 
backissues ahead of time, and we don't have to reprint important information 
in every issue — especially about Pascal implementations! 

- Issues 1 .. 8 (January, 1974 - May 1977) are out of print . ' 

(A few copies of issue 8 remain at PUG(UK) available for £2 each.) 

- Issues 9 .. 12 (September, 1977 - June, 1978) are available from PUG(USA) 
all for $15.00 and from PUG(AUS) all for $A15.00 

- Issues 13 .. 16 are available from PUG(UK) all for £10; from PUG(AUS) all 
for $A15.00; and from PUG (USA) all for $15.00. 

- Extra single copies of new issues (current academic year) are: $5.00 each 
- PUG(USA); £3 each - PUG(UK); and $A5.00 each - PUG(AUS). 

SENDING MATERIAL FOR PUBLICATION? 

-Your experiences with Pascal (teaching and otherwise), ideas, letters, 
opinions, notices, news, articles, conference announcements, reports, 
implementation information, applications, etc. are welcome. Please send 
material single- spaced and in camera-ready (use a dark ribbon and lines 18.5 
cm. wide) form. 

- All letters will be printed unless they contain a request to the contrary. 
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RENEWING 

This is the last issue of the year. (Bet you thought it 
would never get here!!) So if you have not renewed yet, 
RENEW NOW !!! It is easy to tell if you need to renew, 
because all you have to do is look at your mailing 
label. (Except in the Australasian Region.) If the 
number in square bracl<ets says 80 (ie. " [80] " ) then 
this is your last issue. This number is the year your 
subscription expires. 

THIS ISSUE 

This issue contains the full text of the "Second Draft" 
of the proposed ISO Pascal Standard. I hope it is the 
last one we publish; because it is the last one! Andy 
Mickel ( remember Andy?! ) was present at the X3J9 
meeting in Huntsville, and has also been doing plenty of 
long distance politicing for this standard. He asked if 
he could write a guest editorial and the text follows. 



This special issue of Pascal News presents the second draft proposal of the ISO 
Pascal Standard now out for public comment and voting by the appropriate national 
bodies. More formally this document is known as (revised) DP7185.1. 

[Alice Droogan, ISO TC97/SC5 Secretariat said to send all comment to: 
Joint Pascal Committee, c/o Larry B. Weber, IBM, General Products Division, 
555 Bailey Avenue, San Jose, CA 95150 USA. See also bottom of page 69, 
Pascal News #18] 





UNIVERSITY OF MINNESOTA University Computer Center 

TWIN CITIES 227 Experimental Engineering Building 

208 Union Street S.E. 

Minneapolis, Minnesota 55455 



1981-01-08 ^ 
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As was reported by Jim Miner on page 74 of Pascal News #19, the first draft 
received 11 yes and 4 no votes. Most of the people I know associated with 
ISO Pascal Standards activities (including myself) expect unanimous approval 
on this draft. There are several things I can say about this: 

1. The ISO Pascal standard is badly needed now and is overdue, but it 
will have set speed records in approval. 

2. Even though the draft standard is imperfect (and always will be) the 
realization among those experts from the ISO Working Group is that 
extra time spent on. the draft in an effort to perfect it has reached 
the point of diminishing returns. 

3. This draft can be expected to be very close to the final standard. 

4. Pascal users will at last benefit from a single standard when it 
will be adopted by the national standards groups in ISO member 
countries (such as in the USA by ANSI/IEEE/NBS and the Federal Govt.). 

What I wrote two years ago in an editorial in Pascal News #14 which introduced 
the third BSI working draft of a Pascal Standard still applies: 

Pascal Standards should be given special consideration (in other words, 
there are not necessarily applicable precedents found in the standards 
processes of other languages). The Pascal Standards process has been a 
model phenomenon in Computer Science history. 

First and foremost Pascal was designed by a single person (Niklaus Wirth) 
and is not a committee-designed language. Pascal Standards Committees 
have so far rightly refrained from adding committee-designed features. 
Secondly, Pascal is the first major programming language standardized 
outside the United States. As I've said before, it has European origins 
but to be more accurate, Pascal is truly international. I think that's 
wonderful and neat! 

Pascal is in very wide use (even though there are dozens of programmers ignorant 
of its impact and uses). Its design goals mentioned in my Pascal News #14 
editorial have been met" and exceeded (even though there are plenty of computing 
people who deny this). 

Finally, let me reiterate the implications of an imperfect Pascal standard. In 

the time given, with the people involved, and with the resources we've had, 
it's a remarkable achievement. (Thank you, Tony Addyman!) And it is still 
imperfect. But now the existence of a finished standard is more important 
thatn spending any more time. 

In spite of the attitude of many of us technical people, you can't always 
fix certain things--technical problems don't always have clean solutions. It's 
not clear in some cases that solutions can be attained. In other words, if 
you put enough constraints on a problem, it could be the case that the set of 
solutions is empty. 

Therefore, regarding the conformant- array feature I am happy; after having 
listened to the large volume of discussion, I know that it is equivalent in 
quality to any alternative. To repeat a familiar refrain, if there had been 
a natural solution, Niklaus would have incorporated it in the first place. 

He's said so himself. 
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'il american national standards institute, inc • 1430 broadway, new york, n.y. 10018 • (212) 354-3300 



Dear Mr. Shaw: 

Enclosed please find second draft proposal ISO/DP 7185 - Specification 
for the Computer Programming Language - Pascal. This document is being 
circulated to 97/5 committee members for voting on by March 31, 1981. 

Comments on the document are welcome and will be considered but must be 
in written form and must be received by March 31, 1981 . Please address 
all comments to ANSI's X3J9 Chairman: 



Comments should be clearly marked with the name, address and telephone 
number of the commentor, the section and subsection to which the 
comment applies, and a rationale or explanation for any proposed text 
changes. Specific proposed text changes are the most desirable form 
for comments, but general changes or criticisms, or questions, are 
also welcome. 



Cable: Standards, New York 



International Telex: 42 42 96 ANSI Ul 



January 21, 1981 



Dr. Carol Sledge 

On- Line Systems, Inc. 

115 Evergreen Heights Drive 

Pittsburgh, PA 15229 



Sincerely, 



Alice Droogan 
Secretariat ISO/TC 97/SC 5 




AD/MAC 
End. 
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Foreword 

The language Pascal was designed by Professor Niklaus Wirth to satisfy 
two principal aimss 

(a) to make available a language suitable for teaching programming as 
a systematic discipline based on certain fundamental concepts 
clearly and naturally reflected by the language. 

<b) to define a language whose implementations could be both reliable 
and efficient on then available computers. 
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However^ it has become apparent that Pascal has attributes which so 
far beyond these orisinal soals. It is now be ins increasinsl y used 
commercially in the writins of both system and application software. 
This standard is primarily a consequence of the srowins commercial 
interest in Pascal and the need to promote the portability of Pascal 
prosrams between data processins systems. 

In drafting this standard the continued stability of Pascal has been a 
prime objective. However^ apart from chanses to clarify the 
speci f icationi two maJor chanses have been introduced? 
(a> the syntax used to specify procedural and functional parameters 
has been chansed to re«HUire the use of a procedure or function 
headin^f as appropriate (see 6.6.3. 1 ) . This chanse was introduced 
to overcome a lansuase insecurity? 
(b) a fifth kind of parameter^ the conformant array parameter^ has 
been introduced (see 6.'6.3.7). With this kind of parameter* the 
required bounds of the index-type of an actual parameter are not 
fixed* but are restricted to a specified ranse of values, 

0. INTRODUCTION 

The appendices are included for the convenience of the reader of this 
standard^ They do not form a part of the re<^ui r ements of this 
standard. 

1. SCOPE OF THIS STANDARD 

1.1 TKis standard specifies the semantics and syntax of the computer 
prosrammins lansuase Pascal by speci f yi ns re<=iuirement5 for a processor 
and for a conforming prosram. Two levels of compliance are defined for 
both processors and programs. 

1.2 This standard does not specify 

(a) the size or coinplexxty of a program and its data ttiat will exceed 
the capacity of any specific data processing system or the 
capacii^ of a particular processor; 

(b) the minimal requirements of a data processing system that is 
capable of supporting an implementation of a processor for 
Pascal { 

(c) the method of activating the prof ram-bl ock or the set of commands 
used to control the environment in which a Pascal program is 
transformed and executed? 

id) the mechanism by whicK programs written in Pascal are transformed 
for use by a data processing system; 

(e) the method for reporting errors or warnings? 

(f) the typographical representation of a program published for human 
reading. 

2. REFERENCES 
None. 
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3. DEFINITIONS 

3.1 error. A violation by a program of the re<=^uirement5 of this 
standard whose detection by a processor is optional - 

3.2 implementation-defined. Possibly differing between processors* but 
defined for any particular processor. 

3.3 imp! ementation'-dependent . Possibly differing between processors 
and not necessarily defined for any particular processor. 

3.4 processor. A compiler > interpreter* or other mechanism which 
accepts the program as input and either executes itr prepares it 
for eKecution* or both. 



4. DEFINITIONAL CONVENTIONS 



The metalanguage used in this standard to specify the syntax of the 
constructs is based on Backus-Naur Form. The notation has been 
modified from the original to permit greater convenience of 
description and to allow for iterative productions to replace 
recursive ones. Table 1 lists -the meanings of the various 
me ta-symbol s . Further specification of the constructs is given by 
prose and# in some cases* by e<^uiva1ent program fragments. Any 
identifier that is defined in clause 6 as the identifier of a 
predeclared or predefined entity shall denote that entity by its 
occurrence in such a program fragment. In all other respects* any such 
program fragment is bound by any pertinent re*=^ui rement of this 
standard. 

Table 1. Metalanguage symbols 



Meta-symbol 



Meaning 



( X I y ) 



meta-ident i f ier 



shall be defined to be 

shall have as an alternative definition 

al ternat i ve 1 y 

end of definition 

0 or 1 instance of x 

0 or more instances of x 

groupings either of x or y 

the terminal symbol xyz 

a non-terminal symbol 
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A meta-i dent i f ier shall be a 5e<=^uence' of letters and hyphens besinnins 
with a letter. 

A sequence of terminal and non-terminal symbols in a production 
implies the concatenation of the text that they ultimaieiy represent. 
Within 6.1 this concatenation is direct; no characters may intervene. 
In all other parts of this standard the concatenation is in accordance 
with the rules set out in 6.1. 

The characters re^^uired to form Pascal programs are those implicitly 
required to form the tokens and separators defined in 6«1. 

Use of the words oft ir\f containing and closest-containing when 
expressing a relationship between terminal or non-terminal symbols 
shall have the following meanings. 

the X of a ys refers to the x occurring directly in a production 
defining y. 

the X in a ys is synonymous with **the x of a y'\ 

a y containing an x: refers to any x directly or indirectly 
derived from y. 

the y closest-containing an x: that y which contains an x but does 
not contain another y containing that x. 

These syntactic conventions are used in clause 6 to specify certain 
syntactic requirements and also the contexts within which certain 
semantic specifications apply. 

5. COMPLIANCE 

NOTE. There are two levels of tompliance - level 0 and level 1. 
Level 0 does not include conformant array parameters. Level 1 does 
include conformant array parameters. 

5.1 Processors 

A processor complying with the requirements of this standard shalls 

(a) if it complies at level 0* accept all the features of the language 
specified in clause 6^ except for 6.6.3.6(e)# 6.6.3-7 and 6.6»3.8^ 
with the meanings defined in clause 6; 

(b) if it complies at level 1^ accept all^ the features of the language 
spef:ified in clause 6 with the meanings defined in clause 6; 

<c) not require the inclusion of substitute or additional language 
elefnents in a program in order to accomplish a feature of the 
language that is specified in clause 6? 

(d) be accompanied by a document that provides a definition of all 
implementation-defined features; 

(e) detect any violation by a program of the requirements of this 
standard that is not designated an error? 

(f) treat each violation that is designated an error in at least one 
of the following wayss 
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1) there shall be a statement in an accompanyins document that the 
error is not reported; 

2) the processor shall have reported a prior warnin9 that an 
occurrence of that error was possible; 

3) the processor shall report the error durins preparation of the 
. prosram for execution? 

4) the processor shall report the error durine execution of the 
program^ and terminate execution of the program. 

(9) be accompanied by a document that separately describes any 
features accepted by the processor that are not specified in 
clause 6. Such extensions shall be described as being 'extensions 
to Pascal specified by IS07185: 198-'. 

(h) be able to process in a manner similar to that specified for 
errors any use of any such extension? 

(i) be able to process in a manner similar to that specified for 
errors any use of an implementation-dependent feature. 

5.2 Programs 

A program complying with the requirements of this standard shall J 

(a) if it complies at level O^.use only those features of the language 
specified in clause 6> except for 6.6.3.6(e)> 6.6.3.7 and 6.6.3.S' 

(b) if it complies at level 1^ use only those features of the language 
specified in clause 65 

(c) not rely on any particular interpretation of 
implementation-dependent features. 



NOTE. The results produced by 
program by different complying 
the same . 



the processing of a complying 
processors are not required to be 



PASCAL NEWS #20 



DECEMBER. 1980 



6. RCQUIREMENTS 
^.•1 Lexical tokens 



NOTE. The syntax siven in this sub-clause (6.1) describes the 
formation of lexical tokens from characters and the separation of 
these tokens^ and therefore does not adhere to the same rules as 
the syntax in the rest of this standard. 

6. 1.1 General.. - The lexical tokens used to construct Pascal prosrams 
shall be classified into special -symbol s > identifiers^ directives* 
unsisned-numbers > labels and character-^-s tr inss . The representation of 
any letter (upper-case or lower-case* differences of font* etc) 
occurring anywhere, outs i de of a character-str ins (see 6.1.7) shall be 
insignificant in that occurrence to the meanins of the prosramB 

letter = "a" ! "b" I "c" I'^d" I '^e" 1 "f " ! ''g'' ! '^h" ! "i" ! j " 1 "k" 1 1 " ! ''m" I 
n I 0 I p r s I r I s I r I u I V I w I A I > * z • 

disit = »o" I "1" 1 "2" I "3" I *'4" I "5" 1 "6" I ! "8" ! "9*» . 

6.1.2 Special -symbol s . The special-symbols are tokens having special 
meanings and shall be used to delimit the syntactic, units of the 
language. 

special-symbol = h^^m , ..^.i , ..^i. i u/u . ..^u . . ns,., j .,,-1, , n^.i i 

It II I II ^ II I II ■ M I M K (I j II.A.II j ti ^ 11 I It ^ II I 

"<>''|ti<~n j.,>^uju.=,,,Ii,_n j word-symbol . 



wprd-symbol = 



**and»' ! ^'array'' I ''begin'^ I "case" ! ''const" 1 "div" I 



"do"} "downtd" ! "el se" i "end" ! "file' 



for^' ! 



"function" ! "goto" i "if " I "in" I "label" I "mod" I 
"nil " ! "not" ! "of" I "or" 1 "packed" I "procedure" ! 
"program" I "record" I "repeat" ! "set" ! "then" 1 
"to" I "type" I "until " ! "var" I "while" I "with" . 



6,1.3 Identifiers. Identifiers may be of 
Qf an identifier shall be significant, 
same spelling as any word-symbol. 



any length. All characters 
No identifier shall have the 



identifier =5 letter {letter ! digit) 



Exaippl es s 

X time readinteger 

In<=iuireWorkstat ionTrans f ormat i on 
In«iuireWorkstat ionldent i fi cat ion 



WG4 



Al terHeatSett i ng 



6.1.4 Directives. A directive shall occur 

procedure-declaration or function-declaration. The dire- 
shall be the only required directive (see 6.6.1 and 
implementation-dependent directives may be provided, 
shall h^ve the same spelling as any word-symbol. 



only in a 
tive forward 
6.6.2). Other 
No directive 



directive = letter {letter I digit} . 

NOTE. On many processors the directive ^ixternal is used to specify 
that the procedure-block or f unct ion-^bl Qck corresponding to that 
procedure-heading or function-heading is external to the 
program-block. Usually it is in a library in a form to be input 
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to^ or that has been produced by ^ the processor. 

6.1.5 Numbers. An uns isned-inteser shall denote in decimal notation a 
value of inteser-type (see 6.4.2.2), An unsigned-real shall denote in 
decimal notation a value of real-type (see 6.4.2.2). The letter "e" 
preceding a scale factor shall mean 'times ten to the power of. The 
value denoted by an unsisned-inteser shall be in the closed interval 0 
to maxint (see 6.4.2,2 and 6.7.2.2). 

disi t'-sesuence = digit <;digit} . 
unsisned-inteser = disi t-se^uence . 
unsisned-real = 

unsigned-integer digi t-se*Ruence C"e" scale-factor] I 

unsisned-integer "e" scale-factor . 
unsigned-number = unsigned-integer i unsigned-real . 
scale-factor = sisned^-integer . 
sign ^ { . 

signed^-integer = Csisnl unsigned-integer . 
signed-real = Csign] unsigned-real . 
signed-number = signed-integer 1 signed--real . 

Examples: 

lelO 1 +100 -0.1 5e-3 87.35E+8 

6.1.6 Labels. Labels shall be digi t-se«^uences and shall be 
distinguished by their apparent integral values ♦ that shall be in the 
closed interval 0 to 9999. 

label = digit-sequence . 

6.1.7 Character-^strings . A character-string containing a single 
string-element shall denote a value of char-type (see 6.4.2.2). A 
character^strins containing more than one string-element shall denote 
a value of a string-type (see 6.4.3.2) with the same number of 
components as the character-string contains string-elements. If the 
string of characters is to contain an apostrophes this apostrophe 
shall be denoted by an apostrophe-image . Each string-character shall 
denote an implementation-defined value of char-type. 

character-string = string-element 

Cstring-el ement> " " . 
string-element ~ apostrophe-image ! string-character . 
apostrophe-image = ^ 
string-character = 

one-of-a-set-of-impl ementation-de f ined-characters . 



Exampless 

/ ^ / / • / tilt 

'Pascal' 'THIS IS A STRING' 
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6.1.8 Token separators. The construct 

*' {" ariy-5e*=^uence~o f-characters-and-separat ions-o f-1 i nes-not*- 
containins^r isht-brace 

shall be a comment if the does not occur within a character-s tr ins 

or within a comment. The substitution of a space for a .comment shall 
not alter the meanins of a program. 

Comments! spaces (except in character-s tr i nss ) ^ and the separation of 
consecutive lines shall be considered to be token separators. Zero or 
more token separators may occur between any two consecutive tokens* or 
before the first token of a program text. There shall be at least one 
separator between any pair of consecutive tokens made up of 
identifiers^ word-symbol s > labels or unsigned-numbers. No separators 
shall occur within tokens. 
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6.2 Blocks^ scope and activations 

6.2.1 Block. A block c1 oses t-containins a 1 abe 1 -dec 1 arat i on-part in 
which a label occurs shall c 1 oses t~contai n exactly one statement in 
which that label occurs. The occurrence of a label in the 
label-declaration-part of a block shall be its de f inins-point as a 
label for the region which is the block. 

block = label-declaration-part 

constant-definition-part 
type-def in it ion-par t 

variable-declaration-part 

procedure-and-f unction-dec 1 arat i on-par t 
statement-part . 

lahel-declaration-part = ["label" label -C'S" label} " .. 



II . it 



constant-definition-part = ["const" constant-definition 

{constant-definition "?">3 . 

type-definition-part = ["type" type-definition 

{type-definition "5"}3 , 

variable-declaration-part = ["var" variable-declaration "?" 

{variable-declaration ">"}] . 

procedure-and-f unction-dec 1 arat ion-par t = 

.{(procedure-declaration I function-declaration) "?"> . 

The statement-part shall specify the algorithmic actions to be 
executed upon an activation of the block. 

statement'-part = compound-statement • 

All variables contained by an activation^ except for those listed as 
prosram-parameters ^ shall be totally-undefined at the commencement of 
that activation. 

6.2.2 Scope 

6.2.2.1 Each identifier or label contained by the program-block shall 
have a def ining-point . 

6.2.2.2 Each def ining-Point shall have a region that is a part of the 
program text> and a scope that is a part or all of that 
region . 

6.2.2.3 The region of each def ining-Point is defined elsewhere (see 
6.2. If 6.2.2. lOf 6.3f 6. 4. If 6.4.2.3f 6.4.3.3f 6.5. If 
6.5.3.3f 6. 6. If 6.6.2f 6. 6. 3. If 6.8.3.10). 

6.2.2.4 The scope of each def ining-point shall be its region 
(including all regions enclosed by that region) subject to 
6.2.2.5 and 6.2.2.6. 

6.2.2.5 When an identifier or label that has a de f i ning-point for 
region A has a further def ining-point for some region B 
enclosed by Af then region B and all regions enclosed by B 
shall be excluded from the scope of ^ the def ini ng-point for 
region A. 

6.2.2.6 The field-identifier of the field-specifier of a 
field-designator (see 6.5.3.3) shall be one of the 
field-identifiers associated with a component of the 
r&cord-type possessed by the record-variable of the 
field-designator. 
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6.2.2.7 The scope of a def inins-point of an identifier or label shall 
include no other def inins-point of the same identifier or 
label. 

6.2.2.8 Within the scope of a de f inins-po int of an identifier or 
labels all occurrences of that identifier or label shall be 
designated applied occurrences^ except for an occurrence that 
constituted the de f inins-point of that identifier or label? 
such an occurrence shall be designated a defining occurrence. 
No occurrence outside that scope shall be an applied 
occurrence. 

6. 2. 2.9 The de f inins-point of an identifier or label shall precede 
all applied occurrences of that identifier or label contained 
by the prosram-bl ock with one exception^ namely that a 
type-identifier may have an applied occurrence in the 
domain-type of any new-pointer-types contained by the 
type-definition-part that contains the def inins-point of the 
type-identifier. 

6.2.2.10 Identifiers that denote re<Ruired constants^ types> procedures 
and functions shall be used as if their def inin^-points have 
a resion enclosing the program. 

6.2.2.11 Whatever an identifier or label denotes at its def ining-point 
shall be denoted at all applied occurrences of that 
identi f ier or label . 

6.2.3 Activations 

6.2.3.1. A procedure^identi f ier or function-identifier having a 
de f ining-point for a region which is a blocks within the 
procedure-and-f unct ion-decl aration-part of that block shall be 
designated loc5il to that block. 

6.2. 3. 2. The activation of a block shall contain 

(a) for the statement-part of the blocks an algorithm* the completion 
of which shall terminate the activation (see also 6.8.2.4); 

(b) for each label in a statement* having a def ining-point in the 
label-declaration-part of the block* a program-point in the 
algorithm of the activation of that statement; 

(c) for each variable-identifier having a de fining-point for the 
region which is the block* a variable possessing the type 
associated with the variable-identifier; 

(d) for each procedure-identifier local to the block* a procedure with 
the formal parameters associated with* and the procedure-block 
corresponding to* the procedure-identifier; and 

(e) for each function-identifier local to the block* a function with 
the formal parameters associated with* the function-block 
corresponding to* and the type possessed by* the 
function-identifier. 

6.2.3.3. The activation of a procedure or function shall be the 
activation of the block of its procedure-block or function-block* 
respectively* and shall be designated within! 

(a) the activation containing the procedure or function; and 
<b) all activations that that containing activation is within. 
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NOTE. An activation of a block B can only be within activations of 
blocks containing B. Thus an activation is not '>nthin another 
activation of the same block. 

Within an activation^ an applied occurrence of a label or 
variabl e-ident i f ier f or of a procedure-identifier or 

function-identifier local to the block of the activatiof.i shall denote 
the corresponding prosram-point > variable* procedure* or function* 
respectively* of that activation. 

6.2. 3. 4. A procedure-statement or function-designator contained in the 
algorithm of an activation and that specifies the activation of a 
block shall be designated the activation-point of that activation of 
the block. 

6.2.3.5. The algorithm* program-points* variables* procedures and 
functions* if any* shall exist until the termination of the 
activation. 

6.3 Constant-definitions. A constant-definition shall introduce an 
identifier to denote a value. 

constant-definition = identifier = " constant . 

constant Csign] (unsigned-number 1 constant-identifier) 

i character-string . 
constant-identifier = identifier . 

The occurrence of an identifier in a constant-definition of a 
constant-definition-part of a block shall constitute its 
def ining-point for the region that is the block. The constant shall 
not contain an applied occurrence of the identifier in the 
constant-definition. Each applied occurrence of that identifier shall 
be a constant-identifier and shall denote the value denoted by the 
constant of the constant-definition. A constant-identifier in a 
constant containing an occurrence of a sign shall have been defined to 
denote a value of real-type or of integer-type. 
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6.4 Type-def initians 

6.4.1 General. A type-definition shall introduce an identifier to 
denote a type. Type shall be an attribute that is poss&<:>-5ed by every 
value and every variable. Each occurrence of a new-type shall denote a 
type that is distinct from any other new-type. 

type-definition = identifier type-denoter . 

type-denoter = type-identifier ! new-type . 
new-type = new-ordinal -type I new-structured-type I 
new-Pointer-type . 

The occurrence of an identifier in a type-definition of a 
type~def xni tion-part of a block shall constitute its def ining-point 
for the resion that is the block. Each applied occurrence of that 
identifier shall be a type^-identifier and shall denote the same type 
as that which is denoted by its type-denoter. Except for applied 
occurrences as the domain-type of a new-pointer-type t the type-denoter 
shall not contain an applied occurrence of the idr^^ntifier in the 
type-definition. 

Types shall be classified as simpler structured or pointer types. The 
re^Huired types shall be denoted by- predefined type-identifiers (see 
6.4.2.2 and 6.4.3.5>. 

simple-type-ident i f ier = t ype-i dent i f ier . 
structured-type-identifier = type-identifier . 
pointer-'type-identif ier = type-identifier . 
type-identifier = identifier • 

A type-identifier shall be considered as a simp! e-type-identi fieri a 
structured-type-identi fieri or a pointer-type-identi f ier i according to 
the type that it denotes. 

6.4.2 Simple-types 

6.4.2.1 General. A simple-type shall determine an ordered set of 
values. The values of each ordinal-type shall have intesrer ordinal 
numbersp An ordinal -type-identi f ier shall denote an ordinal -type. 

simpj9-type = ordinal-type I real-type . 
ordinal-type = new-ordinal -type ! 

inte9er-type ! Boolean-type ! char-type i 

drdinal-type-identif ier . 
new-ordinal -type = enumerated-type I subranse-type . 
ordinal-type-identifier = identifier . 

6.4.2.2 Required simple-types. The following types shall exist: 

irvteser-^type The re<^uired inteser-type-identi f ier integer shall 
denote the i nteser-type . The values shall be a subset 
of the whole numbers^ denoted as specified in 6.1.5 by 
the s igned-integer values (see also 6.7.2.2). The 
ordinal number of a value of integer-type shall be the 
value itself. 

real-type The required real-type-identifier real shall denote the 

real-type. The values shall be an 

impl ementati.on-def ined subset of the real numbers 
denoted as specified in 6.1.5 by the signed-real 
values. 
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Boolean-type The required Bool ean-type-identi f ier Boolean shall 
denote the Boolean-type. The values shall be the 
enumeration of truth values denoted t^y the required 
constant-identifiers false and true^ such that false is 
the predecessor of true. The ordinal numbers of the 
truth values denoted by false and true shall be the 
integer values 0 and 1 respectively. 

char-type The required char-type-i den t i f i er char shall denote the 

char-type. The values shall be the enumeration of a set 
of implementation-defined characters^ some possibly 
without graphic representations. The ordinal numbers of 
the character values shall he values on inteser-type > 
that are impl ementation-def ined* and that are 
determined by mapping the character values on to 
consecutive non-nesative integer values starting at 
zero. The mapping shall be order preserving. The 
following relations shall hold: 

(a) The subset of character values representing the 
digits 0 to 9 shall be numerically ordered and 
contiguous. 

(b) The subset of character values representing the 
UPPer-case letters A to if available^ shall be 
alphabetically ordered but not necessarily contiguous. 

(c> The subset of character values representing the 
lower-case letters a to zt if available* shall be 
alphabetically ordered but not necessarily contiguous. 

(d) The ordering relationship between any two character 
values shall be the same as betwer^n their ordinal 
numbers. 

NOTEi Operators applicable to the required simple-types are 
specified in 6.7.2. 

6.4.2.3 Enumerated-types . An enumerated-type shall determine an 
ordered set of values by enumeration of the identifiers that denote 
those values. The ordering of these values shall be determined by 
the sequence in which their identifiers are enumerated/ i.e. if x 
precedes y then x is less than y. The ordinal number of a value that 
is of an enumerated-type shall be determined by mapping all the values 
of the type as their identifiers occur in the identifier-list of the 
enumerated-type on to consecutive non-negative values of integer-type 
starting from zero. 

enumerated-type = ( " identifier-list . 
identifier-list = identifier { identifier > . 

The occurrence of an identifier in the identifier-list of an 
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enumerated-ty pe shall constitute its def inins-point as a 
constant-identifier for the region which is the block 
cl 05e'5t-containin9 the enumerated-type . 

Examples: 

(redeye! lowtsreen^bluei tartan ) 
( c 1 ub ^ diamond > heart ^ spade ) 
(marriedf divorced t widowed f sinsl e ) 
(sea nninsE^foundf not present) 

(Busy > InterruptEnabI e ^Par it yErr or ^OutOf Paper * Li neBreak ) 

6.4.2.4 Subrange-types. The definition of a type as a subrange of an 
ordinal-type shall include identification of the smallest and the 
largest value in the subrange. The first constant of a subrange-type 
shall specify the smallest valuer and this shall be less than or e<=^ual 
to the largest value which shall be specified by the other constant of 
the subrange-type. Both constants shall be of the same ordinal-typet 
and that ordinal-type shall be designated the host type of the 
subrange-type . 

subrange-type = constant " . . constant . 

Examples! 
1. .100 
-10. .+10 
red. .green 
'0'..'9' 

6.4.3 Structured-types 

6.4.3.1 General. A new-structured-type shall be classified as an 
array-typei record-type^ set-type or file-type according to the 
un packed-structured- type cl osest-contained by the new-structured- type . 
A component of a value of a structured-type shall be a value. 

structured-type = new-structured-type I 

structured-type- identifier . 
unpacked-structured-type = array-type I record-type I set-type • ! 

file-type . 

new-structured-type = Oacked"] unpacked-structured-type . 

The occurrence of the token packed in a new-structured-type shall 
designate the type denoted thereby as packed. The designation of a 
structured-type as packed shall indicate to the processor that 
c<ata-storage of values should be economised^ even if this causes 
oper-ations on^ or accesses to components off variables possessing the 
type to be less efficient in terms of space or time. 

The designation of a structured-type as packed shall affect the 
representation in data-storage of that structured-type only; that is 
if a component is itself structured^ the component's representation in 
data-storage shall be packed only if the type of the component is 
designated packed. 
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NOTE. The ways^ in which the treatment of entities of a type is 
affected by whether or not the type is designated packed are 
spe^cified in 6.4.3-2^ 6.4.5^ 6.6.3.3^ 6.6.3.8^ 6.6.5.4 and 6.7.1. 

6.4.3.2 Array-types- An array-type shall he structured as a mapping 
from each value specified by its index-type onto a distinct component- 
Each component shall have the type denoted by the type-denoter of the 
component-type of the array-type. 

array-type = "array" "C" indeK-type *C "*" index-type > "of" 

component-type - 
index-type = ordinal-type . 
component-type = type-denoter . 

Examples 2 

array CI.. 100] of real 
array [Boolean] of colour 

An array-type that specifies a sequence of two or more index-types 
shall be an abbreviated notation for an array-type specified to have 
as its index-type the first index-type in the sequence f and to have a 
component-type that is an array-type specifying the sequence of 
index-types without the first and specifying the same component-type 
as the original specification. The component-type thus constructed 
shall be designated packed if and only if the original array-type is 
designated packed. The abbreviated form and the full form shall be 
e^iuival ent . 

NOTE. Each of the following two examples thus contains different 
ways of expressing its array-type. 

Example 1. 

array CBool ean] of arrayCl. .103 of arrayCsize] of real 
array tBool ean] of array C 1 lOt s ize3 of real 
arrayCBool eant 1 . . lOtsize] of real 
arrayfBool ean t 1 . . 10] of arrayCsize] of real 
Example 2. 

packed array C 1 . . 10^ 1 . .8] of Boolean 

packed arrayCL.lO] of packed arrayC1..8] of Boolean 

Let i denote a value of the index-type; let vCi3 denote a value of 
that component of the array-type . that corresponds to the value i by 
the structure of the array-type; let the smallest and largest values 
specified by the index-type he denoted by m and n; and let k = 
(ord(n)-ord(m)+l) denote the number of values specified by the 
index-type. Then the values of the array-type shall be the distinct 
k-tuple^ of the forms 
(vCm]f ... fvCn]) 

NOTE. A value of an array-type does not therefore exist unless all 
of its component values are defined. If the comPonent-type has c 
valuefef then it follows that the cardinality of the set of values 
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of the array-type is c raised to the power k. 

Any typ^e desisnated packed and denoted by an array-type havins as its 
index'-type a denotation of a subranse-type specifying a smallest value 
of 1> and having as its component-type a denotation of the char-type> 
shall be designated a string-type. 

The correspondence of character-strings to values of string-types is 
obtained by relating the individual characters of the 
charac ter-s tr i ng > taken in left to right order* to th(? components of 
the values of the string-type in order of increasing index. 

NOTE. The values of a string-type possess additional properties 
which* allow writing them to textfiles (see 6.9.4.7) and define 
their use with relational -operators (see 6.7.2.5). 

6,4.3.3 Record-types, The structure and values of a record-type shall 
be the structure and values of the field-list of the necord-type. 

record-type = "record" field-list "end" . 
field-list = 

C (fixed-part C ";" variant-part 3 ! variant-part) C";"33 . 
fixed-part = record-section -C ";" record-section > . 
record-section = identifier-list ":" type-denoter , 
variant-part = "case" variant-selector "of" 

. variant { "?" variant >• . 
variant-selector = Ctag-field ":"3 tag-type . 
tag-field = identifier . 

variant = case-constant-list ":" "("field-list ")" . 
tag-type = ordinal-type-identifier . 

case-constant-l ist = case-constant { "*" case-constant > , 
case-constant = constant • 

A field-list which contains neither a fixed-part nor a variant-part 
shall have no components* shall define a single null value* and shall 
be designated empty. 

The occurrence of an identifier in the identifier-list of a 
record-section of a fixed-part of a field-list shall constitute its 
def ining-point as a field-identifier for the region which is the 
record-type closest-containing the field-listt and shall associate the 
field-identifier with a distinct component* which shall be designated 
a field* of the record-type and of the field-list. That component 
shall have the type denoted by the type-denoter of the r t?cord-secti on . 

The field-list closest-containing a variant-part shall have a distinct 
component which shall have the values and structure defined by the 
variant-part . 

Let Vi denote the value of the i-th component of a non-empty 
field-list having m components; then the values of ttie field-list 
shall be distinct m-tuples of the form 
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NOTE, If the type of the i~th component has Fi values^ then the 
cardinality of the set of values of the field-list shall be 
(Fl # F2 * ... * Fm) . 

A tag-type shall denote the type denoted by the 
ordinal -type-identi fier of the tag-type. A case-constant shall denote 
the value denoted by the constant of the case-constant. 

The type of each case-constant in the case-constant-list of a variant 
of a variant-part shall be compatible with the ta^-type of the 
variant-selector of the variant-part. The values denoted by all 
case-constants of a type that is re^Ruired to be compatible with a 
given tag-type shall be distinct and the set thereof shall be e^ual to 
the set of values specified by the tag-type. The values denoted by 
the case-constants of the case-constant-list of a variant shall be 
designated as corresponding to the variant. 

With each variant-part shall be associated a type designated the 
selector-type possessed by the variant-part. If the variant-selector 
of the variant-part contains a tag-field* or if the case-constant-l ist 
of each variant of the variant-part contains only one case-constant* 
then the selector-type shall be denoted by the tag-type* and each 
variant of the variant-part shall be associated with those values 
specified by the selector-type denoted by the case-constants of the 
case-constant-list of the variant. Otherwise* the selector-type 
Possessed by the variant-part shall be a new ordinal-type constructed 
such that there is eKactly one value of the type for each variant of 
the variant-part* and no others* and each variant shall be associated 
with a distinct value of that type. 

Each variant-part shall have a component which shall be designated the 
selector oi the variant-part* and which shall possess the 
selector-type of the variant-part. If the variant-selector of the 
var iant'-part contains a tag-field* then the occurrence of an 
identifier in the tag-field shall constitute the de f in ing-po int of the 
identifier as a field-identifier for the region which is the 
record-type closest-containing the variant-part* and shall associate 
the field-identifier with the selector of the variant-part. The 
selector shall be designated a field of the record-type if and only if 
it is associated with a field-identifier. 

Each variant of a variaot-part shall denote a distinct component of 
the variant-part; the component shall have the values and structure 
of the field-list of the variant* and shall be associated with those 
values specified by the selector-type possessed by the variant-part 
which are associated with the variant. The value of the selector of 
the variant-part shall cause the associated variant and component of 
the variant-part to be in a state that shall be designated active. 
The values of a variant-part shall be the distinct pairs 

(k* Xk)* 
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where k represents a value of the selector of the variant-part^ and Xk 
is a rvalue of the field-list of the active variant of the 
variant-part. 

NOTES 

1. If there are n values specified by the se 1 ec tor-type > and if 
the field-list of the variant associated with the i-th value has 
Ti values > then the cardinality of the set of values of the 
variant-part is (Tl + T2 + ... Tn). There is no component of a 
value of a variant-part corresponding to any non-active variant of 
the variant-part. 

2. Restrictions placed on the use of fields of a record-variable 
pertaining to variant-parts are specified in 6.5.3.3^ 6.6.3.3 and 
6 . 6 ^ 5 • 3 » 

Examples: 

record 

year : 0. .20005 

month s 1..12; 

day s 1..31 
end 

record 

name^ firstname s string; 
age : 0..99? 

case married • Boolean of 
true : (Spousesname s string); 
false: (> 
end 

record 

X » y : real ; 
arBa : real ? 
case shape of 
trianple : 

(side s real 5 
inclination^ anglel^ angle2 : angle); 
rectangle : 

(sidel t side2 : real ; 
skew s angl e ) ; 
circles 

(diameter : real ) ; 

end 

6.4.3.4 Set-types. A set-type shall determine the set of values that 
is structured as the powerset of its base-type. Thus each value of a 
set-type shall be a set whose members shal 1 be uni^^ue values of the 
base-type. 

set-typte = "set" "of" base-type . 
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bate-type ^ ordinal -type 

NOT€. Operators applicable to values of set-types are specified in 
6.7.2.4.. 

Exampless 
set of char 

set of (clubf diamond* heart* spade) 

NOTE. If the base-type of a set-type has b values then the 
cardinality of the set of values is 2 raised to the power b. 

For every ordinal-type S* there exists an unpacked set designated the 
unpacked canonical set-of-T type and there exists a packed set type 
designated the packed canonical set-of-T type. If S is a subrange-type 
then T is the host type of S? otherwise T is .S. Each valtje of the type 
set of S is also a value of the unpacked canonical set-of-T type> and 
each value of the type packed set of S is also a value of the packed 
canonical set-of-T type. 

6.4.3.5 File-types. 

NOTE. A file-type describes se^^uences of values of the specified 
coiTiPonent-type * together with a current position in each se^iuence 
and a mode which indicates whether the se^^igence is being inspected 
or generated. 

file-type = **file" "of" component-type . 

A type-denoter shall not be permissible as the component-type of a 
file-type if it denotes either a file-type or a structured-type 
having any component whose type-denoter is not permissible as the 
component-type of a file-type* 

Exampl es : 

file of real 
file of vector 

A file-type shall define implicitly a type designated a sesuence-type 
having exactly those values* which shall be designated sequences* 
defined by the following five rules. 

NOTE. The notation x~y represents the concatenation of sequences x 
and y. The explicit representation of sequences (e.g. S(c))* of 
concatenation of sequences* of the first* last and rest selectors* 
and of sequence equality is not part of the Pascal language. 
The^e notations are used to define file values* below* and the 
required file operations in 6.6.5.2 and 6.6.6.5. 

(a) SO shall be a value of the sequence-type S* and shall be 
designated the empty sequence. The empty sequence shall have no 
components. 
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(b> Let .c be A value of the specified co;mporient'-type > and lei x be a 

value of the se<Huence-"type S. Then S(c) shaJI be a se^^uence of 

type consistins of the single component value ci aind S(c.)'^x 

shall also be a sequence) distinct from S()t of type S- 

(c) Let ct Sf and x be as in (b); let y denote the sa^^^iuence S(c)"')<; 
and let 2 denote the sequence k'"S(c)5 then the notation y. first 
shall denote c (i.e.* the first component value of yU y.rest 
shall denote x (i.e.* the se^iuence obtained froiri y by deleting the 
first component)^ and 2. last shall denote c (i.e.^t the last 
component value of 2). 

(d) Let X and y each be a non^-empty sequence of type S' then x = y 
shall be true if and only if both (x. first y. first) and (x.rest 
= y.rest) are true. If x is the empty sequence* then x = y sihal 1 
be true if and only if y is also the empty sequence. 

(e) Let x^ y^ and z be sequences of type S? then x'^Cy'-'z) = Ix^'yJ'^z* 
S()~x = xt and x^Si) = x shall be true. 

A file-type also shall define implicitly a type designated a iriode-type 
having exactly two values which are designated Inspectioin and 
Generation. 

NOTE. The explicit denotation of these values is not part of tihie 
Pascal 1 anguage . 

A file-type shall be structured as three components.. Two of these 
components* designated f.L and f.R* shall be of the implicit 
se<=^uence-type . The third components designated f»Mt shall be of the 
implicit mode-type. 

Let f.L and f.R each be a single value of the se*^uence-type 5 let f.Ji 
be a single value of the mode-type; then each value of the file-type 
shall be a distinct triple of the form 

(f.L* f.Rf f.M) 

where f.R shall be the empty sequence if f.M is the value Generation. 
The value* f* of the file-type shall be designated empty i f and only 
if f.L'^f.R is the empty se«^uence.. 

NOTE. The two components* f.L and f.Rt of a value of the file-type 
may be considered to represent the single se^^uence f.L'''f.R 
together with a current position in that sequence. If f.R is 
non-^empty* then f.R. first may be considered the currej^t component 
as determined by the current position* otherwise* the current 
position is designated the end-of-file positioT). 

There shall be a file-type that is denoted by the re<=^uired 
structured-type-identifier text. The structure of the type denoted by 
text shall define an additional se«^uence-type whose values shall be 
designated lines. A line shall be a se«iuence x'"S(e)* where x is a 



20 



PASCAL NEWS #20 



DECEMBER. 1980 



Second Draft Proposal 



sequence of components havins the char-type^ and e represents a 
special component valuer which shall be designated an end-o f-1 i ne ^ and 
which shall be indistinguishable from the char value space except by 
the required function eoln (6.6.6.5) and by the required procedures 
reset (6.6.5.2)^ writeln (6.9.5)t and page (6.9.6). If x is a line 
then no component of x other than x.last shall be an end-of-line. This 
definition shall not be construed to determine the underlying 
representation ♦ if anyt of an end-of-line component used by a 
processor. 

A 1 ine-sesuence # z> shall be either the empty se<=iuence or the sequence 
K''y where x is a line and y is a 1 ine-se«iuence . 

Every value t of the type denoted by text shall satisfy one of the 
followins two rules. 

(a) If t.M Inspection^ then t.L'^t.R shall be a 1 ine~se<^uence . 

(b) If t.M - Generation^ then t.L^'t.R shall be x'-y where x is a 
1 ine-sesuence and y is a sesuence of components having the 
char-type. 

NOTE. In rule (b)f y may be consideredt especially if it is 
non-emptyt to be a partial line which is being generated. Such a 
partial line cannot occur during inspection of a file. Also> y 
does not correspond to t.R since t.R is the empty sesuence if t.M 
= Generation. 

A variable that possesses the type denoted by the required 
structured-type-identifier text shall be desisn^tted a textfile. 

NOTE. All required procedures and functions applicable to a 
variable of type file of char are applicable to textfiles. 
Additional required procedures and functions* applicable only to 
textfiles^ are defined in 6.6.6.5 and 6.9. 

6i4.4 Pointer-types. The values of a pointer-type shall consist of a 
single nil'-valuef and a set of ident i f ying-val ues each identifying a 
distinct variable possessing the domain-type of the pointer-t.ype . The 
set of identi f y ins-val ues shall be dynamic* in that the variables and 
the values identifying them* may be created and destroyed during the 
execution of the program. Identi f ying-val ues and the variables 
identified by them shall be created only by the required procedure new 
(see 6.6.5.3) . 

NOTE. Since the nil-value is not an ident i f ying-val ue it does not 
identify a variable. 

The token nil shall denote the nil-value in all pointer --types . 

pointer-type = new-pointer-type I pointer-type-identi f ier . 
new-pointer-type = domain-type . 
domain-type = type-identifier . 
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NOTE. The token nil does not have a sinsle type^ but assumes a 
suitable pointer-'type to satisfy the assisnment-compatibil ity 
rules^ qr the compatibility rules for operators^ if possible. 

6.4.5 Compatible types* Types Tl and T2 shall he designated 
compatible if any of the four statements that follow is true. 

(a) Tl and T2 are the same type. 

(b) Tl is a subranse of T2f or T2 is a subrange of Tl* or both Tl and 
T2 are subranges of the same hast type. 

(c) Tl and T2 are set-types of compatible base-types* and either both 
Tl and T2 are designated packed or neither Tl nor T2 is designated 
packed. 

(d) Tl and T2 are strins-tvpes with the same number of components. 

6.4.6 Assignment-compatibility. A value of type T2 shall be 
designated assignment-compatible with a type Tl if any of the five 
statements that follow is true. 

(a) Tl and T2 are the same type which is neither a file-type nor a 
structured-type with a file component (this rule is to be 
interpreted recursively). 

(b) Tl is the real-type and T2 is the integer-type. 

(c) Tl and T2 are compatible ordinal -types and the value of type T2 is 
in the closed interval specified by the type Tl* 

(d) Tl and T2 are compatible set-types and all the members of the 
value of type T2 are in the closed interval^ speci fied by the 
base-type of Tl. 

(e) Tl and T2 are compatible string-types. 

At any place where the rule of assignment-compatibility is used: 

(a) It shall be an error if Tl and T2 are compatible ord i nal -types and 
the value of type T2 is not in the closed interval specified by 
the type Tl, 

(b) It shall be an error if Tl and T2 are compatible set-types and any 
member of the value of type T2 is not in the closed interval 
specified by the base-type of the type Tl. 

6.4.7 Example of a type-definition-part 
type 

natural = 0..maKint; 
count = integer? 
range = integer; 

colour = (red* yellow* green* blue); 
sex = (male* female); 
year = 1900. . 1999; 

shap^ = (triangle* rectangle* circle); 
punchedcard = arrayC1..80] of char? 
charsequence = file of char; 
polar = record 

r s real J 

theta s angle 
end; 
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indextype « 1 . - 1 imi 1 5 
vector array Cindextype] of real 5 
person = -^per sondetai 1 s ; 
persondetail 5 = 
record 

name> firstname 2 charsesuence 5 
a9e 5 inteser? 
married s Boolean? 
fathert child^ sibling : person? 
case s 2 sex of 
male ' 

(enl isted^ bearded s Boolean); 
female : 

(mother I programmer : Boolean) 

end; 

Fi 1 eOf Inteser = file of inteser? 

NiDTES 

1. In the above example count* ranse and integer denote the same 
type. The types denoted by year and natural are compatible witht 
but not the same as> the type denoted by range* count and integer. 



2. Types occurring in examples in the remainder of this standard 
should be assumed to have been declared as specified in 6.4.7. 
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6.5 Declarations and denotations of variables 

6.5.1 Variable-declarations. A variable is an entity to which a 
(current) value may be attributed (see 6.8.2.2). Each identifier in 
the i d(?nti f i er-1 i $t of a variable-declaration shal 1 denote a distinct 
variable pofiscssin© the type denoted by the type-denoter of the 
var i ab 1 f-declarat ion. 

variable-declaration « i dent i f i er'^l ist type-denoter . 

The occurrence of an identifier in the identifier-list of a 
variable-declaration of the variable-declaration-part of a block shall 
constitute its def inins-point as a variable-identifier for the region 
that is the block. The structure of a variable possessins a 
structured-type shall be the structure of the structured-type. A use 
of a variable-access shall be an access^ at the time of the use* to 
the variable thereby denoted. A var iabl e-access * according to whether 
it is an entire-variabl e * a component~var iab 1 e t an 
ident i f ied-var iabl e * or a buf f er-var iabl e > shall denote either a 
declared variable* or a component of a variable* a variable which is 
identified by a pointer value (see 6.4*4)* or a buffer-variable* 
respective! y . 

variable-access entire-variable ! component-variable ! 

identi f ied-variabl e 1 buf f er-var iabl e . 

An assignins-ref erence to a variable shall occur if any of the six 
statements that follow is true. 

(a) The variable is denoted by the variable-access of an 
assignment-statement. 

(b) The variable is denoted by an actual variable parameter in a 
f unct ion-des ignator or procedure-statement . 

(c) The variable is denoted by an actual parameter in a 
procedure-statement that specifies the activation of the re<=^uired 
procedure read or the re<=^uired procedure readln. 

(d) The variable occurs as the control -variabl e of a f or-s tatement . 

(e) A procedure-statement or a function-designator contains a 
procedure-identifier associated with a procedure-block containing 
an assigning-ref erence to the variable. 

<f) A procedure-statement or a function-designator contains a 
function-identifier associated with a function-block containing 
an assigning-pef erence to the variable. 

Example of a variable-declaration-part 

var 

X * y * 2 tmax • real 5 
i*js integer; 
k ; 0 . p 9 5 
p*«i*rf Boolean? 

operator: (plus* minus* times); 

as arrayC0..633 of real; 

c: colour? 

f! file of char; 

huel*hue2! set of colour; 

p1*p22 person; 

m*ml*m2 : array C 1 . . 10* 1 . . 10] of real; 
coord s polar; 

pooltaf^e 5 arrayCl..4] of Fi 1 eOf Integer 5 
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date I ricord 

month « 1..12? 
year s integer 
end f 

NOTE. Variables occurring in exarriples in the remainder of this 
standard should be assumed to have been declared as specified in 
6.5.1. 

6.5.2 Entire-variables. 

entire-variable = variable-identifier . 
variable-identifier = identifier . 

6.5.3 Component-variables 

6.5.3.1 General. A component of a variable shall be a variable. A 
component-variable shall denote a component of a variable. A 
reference^ assisning-ref erence or access to a component of a variable 
shall constitute a references ass isn i ns-r e f er ence or access^ 
respectively^ to the variable. The valuer if any t of the component of 
a variable shall be the same component of the value* if any* of the 
variable. 

component-'Variabl e = indexed-var iabl e I field-designator , 

6.5.3.2 Indexed-var iabl es ■ A component of a variable possessing an 
array-type shall be denoted by an indexed-variabl e. 

indexed-var iabl e = 

array-variable "C" index-expression 

£ index-expression } . 
array-variable = variable-access . 
index-^expression = expression . 

An array-variable ^ shall be a variable-access that denotes a variable 
possessing an array-type. For an indexed-var iabl e closest-containing a 
single index-expression * the value of the index-expression shall be 
assignment-compatible with the index-type of the array-type. The 
component denoted by the indexed-var iabl e shall be the component that 
corresponds to the value of the index-expression by the mapping of the 
type possessed by the array-variable (see 6.4.3.2). 

Examples: 
aC12] 
aCi-fj] 

mLkl 

If the array-variable is itself an indexed-var iab 1 e an abbreviation 
may be used. In the abbreviated form* a single comma shall replace the 
sequence "C" that occurs in the full form. The abbreviated form 
and the full form shall be equivalent. 
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EKampI ess 
fnCk>n 

NOTE. The two examples denote the same component variable. 

6.5.3.3 Field-designators. A field-designator either shall denote 
that component of the record-variable of the field-designator which is 
associated with the field-identifier of the field-specifier of the 
field-designator* by the record-type possessed by the record-variable? 
or shall denote the variable denoted by the 

field-designator-identifier (see 6.8.3.10) of the field-designator. A 
record-variable shall be a variable-access that denotes a variable 
possessing a record-type. 

The occurrence of a record-variable in a f iel d-desisnator shall 
constitute the def ining-point of the f iel d-identi fiers associated with 
components of the record-type possessed by the record-variables for 
the region that is the field-specifier of the field-designator. 

field-designator = record-variable " . field-specifier 1 

f ie l d-des i gnat or-i dent i f ier . 
record-variable = variable-access . 
field-specifier = field-identifier • 
field-identifier = identifier . 

Exampl es 5 
p2^. mother 
coord . theta 

An access to a component of a variant of a var iant-part r where the 
selector of the variant-part is not a field* shall attribute to the 
selector that value specified by its type which is associated with the 
variant. 

It shall be an error unless a variant is active for the entirety of 
tach reference and access to each component of the variant. 

When a variant becomes not active* all of its components shall become 
total 1 y-^undef ined . 

NOTE. If the selector of a variant-part is undefinedr then no 
variant of the variant-part is active. 

6.5.4 I dent i f i ed-var iabl es . An ident i f i ed-var iab 1 e shall denote the 
variable (if any) identified by the value of the pointer-variable of 
the identi f ied-var iabl e (see 6.4.4 and 6.6.5.3). 

ident i fied-variabl e = pointer-variable . 
pointer-variable = variable-access . 

A variable created by the re<Ruired procedure new (see 6.6.5.3) shall 
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be Acceftible until the termination of the activation of the 
prosracFi-bl ock or until the variable is made inaccessible (see the 
required procedure dispose^ 6.6.5.3). 

NOTE. The accessibility of the variable also depends on the 
eKistence of a pointer-variable which has attributed to it the 
correspondinsr identifying value. 

A pointer-variable shall be a variable-access that denotes a variable 
possessing a pointer-type. It shall be an error if the 
pointer-variable of an identi f ied-variab 1 e either denotes a nil-value 
or is undefined. It shall be an error to remove from its pointer-type 
the identi fyins-val ue of an identified variable (see 6.6.5.3) when a 
referenct to the identified variable exists. 

Exampless 
pl^ 

pt^, father'^ 
pl'^.sibJ ins"^. father^ 

6.5.5 Buffer-variables. A file-variable shall be a variable-access 
that deniotes a variable possessing a file-type. A buffer-variable 
shall denote a variable associated with the variable denoted by the 
f ile--variable of the buffer-variable. A buffer-variable associated 
^ith m textfile shatl possess the char-type? otherwise^ a 
buffer-variable shall possess the component-type of the file-type 
possessed by the file-variable of the buffer-variable. 

buffer-variable = file-variable • 
file-variable = variable-access . 

E>€amples.t^ 
tcipyt^ 

paolt#ptC23'*' 

It shall be an error to alter the value of a file-variable f when a 
reference to the buffer-variable f*^* exists. A reference or access to a 
buffer-variable shall constitute a reference or access t respect ivel y^ 
to the associated file-variable. 
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6. 6-^ Procedure and function declarations 

6.6.1 Procedure-^decl arat i ons . A procedure-declaration shall associate 
an identifier with a procedure-block so that it can be activated by a 
procedure-statement. Activation of the procedure shall activate the 
procedure-block. 

procedure-declaration = 

procedure-headins 5 " directive I 

ppocedure-identi f icat ion 5 " pr ocedur e-b 1 ock 1 

procedure-headinE '* ; procedure-block . 
procedure-^headins = 

*'procedure" identifier C f ormal-parameter-l ist ] 
procedure-identification = 

"procedure'^ procedure-identifier . 
procedure-identifier= identifier, 
procedure-block = block . 

The occurrence of a formal -parameter-l ist in a procedure-headins of a 
procedure-declaration shall define the formal parameters of the 
procedure-bl ock f if any^ associated with the identifier of the 
procedure-headins to be those of the formal -parameter-l is t . 

The occurrence of an identifier in the pr ocedur e-^head i ns 
procedure-declaration shall constitute its def inint:*-Point 
procedure-identifier for the region that is the 
cl osest-containins the the procedure-declaration. 

Each identifier havins a def inins-point as a procedure-identifier in a 
procedure-headi n9 of a procedure-declaration cl osest-containins the 
directive "forward" shall have exactly one of its correspondins 
occurrences in a procedure-identification of a procedure-declaration* 
and that shall be in the same procedure-and-f unction-declaration-part . 

The occurrence of a procedure-block in a procedure-declaration 
associates the procedure-block with the identifier in the 
procedure-headins > or with the procedure-identifier in the 
procedure-identi fi cat ion f of the procedure-decl aratiqn . 

Example of a procedure-and-f unction-decl arat ion-part s 

procedure readintes^r (var fs text? var xi integer)? 
var 

i :natura1 ? 
begin 

while f-^ do 9et(f ) ; 

{The file buffer contains the first ni)n-space char> 

while in C'0'..'9'3 do begin 

i :« (10 * i) + (or.d<f'") - ord('O'))! 
9et(f ) 

end; 

{The file buffer contains a non-disit) 
X != i 

{Of course if there are no disitsf x is zero} 

end; 



as a 
block 
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procedure AddVectors ( var A^B^Cs array C 1 ow. . hish s natural] of real); 
var 

i ! natural 5 
besin 

for i s= low to hish do ACi] 2= BCi] + CCi] 
end { of AddVectors >5 

procedure bisect ( function f(x ' real) s real; 

at b ! real ; 
var resul t s real ) 5 
{This procedure attempts to find a zero of f(x) in (a>b) by 
the method of bisection. It is assumed that the procedure is 
called with suitable values of a and b such that 

(f(a)<0) and <f(b)>0) 
The estimate is returned in the last parameter.) 
const 

EPS = l€-105 

var 

midpoints real ? 
begin 

{The invariant P is true by calling assumption) 
midpoint a? 

while abs(a-b) > Eps*abs(a) do besin 
midpoint «« (a'^-b)/2J 
if f(midpoint) < 0 then a 5= midpoint 
else b :-midpoint 

{Which re-establishes the invariants 

P = (f (aXO) and (f (b)>0) 
and reduces the interval (a^b) provided that the value 
of midpoint is distinct from both a and b.} 

end; 

£P together with the loop exit condition assures that a zero 
is contained in a small sub-inter\?a1 . Return the midpoint as 
the zero.) 
r-esult 5= midpoint 
end; 
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procedure Pr e par eFor Append i ns ( var f : Fi 1 eOf I nteser ) ? 

{This procedure takes a file in an arbitrary state and sets 
it UP in a condition for appending data to its end. Simpler 
conditionins is only possible if assumptions are made about the 
initial state of the file.) 

var 

LocalCopy : Fi 1 eOf Integer ? 

procedure CopyFi 1 es (var from * i nto J Fi 1 eOf Inteser ) U 
begin 

rese t ( f rom) ji rewr i te ( into) ; 
while not eofCfrom) do begin 

into-^ f rojn'^J 

put(into)? get(fram) 

end; 

end { of CopyFi 1 es > ? 

begin {of body of PrepareForAppending} 

CopyFil es ( f-< LocalCopy) 5 

CopyFiles (Local Co py# f) 
end { of PrepareForAppending >; 

6.6.2 Function-declarations. A f unct ion^decl aration shall associate 
an identifier with a function-block so that it can be activated by a 
function-designator. Activation of the function shal 1 act ivate the 
function-block. 

function-declaration = 

function-heading "5" directive ! 

function-identification "5'^ function-block 1 

function-heading ; function-block . 
f unction-heading = 

function" identifier C formal -parameter-! ist3 

"5^' result-type 
function-identification = 

'^function" function-identifier . 
function-identifier = identifier . 
result-type = simple-type-identifier I 

pointer-type-identi f ier i 
function-block = block . 

The occurrence of a formal -parameter-1 ist in a function-heading of a 
function-declaration shall define the formal paraiiieters of the 
f unction-bl ock f if ar\y f associated with the identifier of the 
function-heading to be those of the formal ~parameter-l ist . The 
function-block shall contain at least one assignment-statement that 
attributes a value to the function-identifier (see 6.8.2.2). The value 
of the function shall be the last value attributed to the 
function-identifier. It shall be an error if the function is undefined 
upon completion of the algorithm of an activation of the 
f unct ion-'bl ock. 
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The occurrence of an identifier in the funct i on-head i ns of a 
function-declaration shall constitute its def inin^-point as a 
function-identifier possessins the tVpe denoted by the result-type for 
the resion that is the block cl osest-containins the the 
function-declaration. 

Each identifier having a de f inins-point as a function-identifier in 
the f unction-headins of a function-declaration closest-containing the 
directive "'forward" shall have exactly one of its corresponding 
occurrences in a function-identification of a f unct ion-decl aration # 
and that shall be in the saime procedure-and-function-decl aration-part . 

The occurrence of a function-block in a function-declaration 
associates the function-block with the identifier in the 
f unct ioo-headins # or with the function-identifier in the 
function-identificationt of the f unction-dec 1 arat ion . 

Example of a procedure-and-function-decl arat ion-part 

function Ssrt(x5real ) : real; 

{This function computes the s<5iuare root of x (x>0) 

using Newton's method.} 
var 

ol df ni?w5 real 5 
begin 

new 2= X ; 
repeat 

old s= new" 

new := (old + x/old)*0.5; 
until abs(new-old) < Eps*new; 
{Eps being a global constant) 
Sqrt s= new 
ejid {of S^rt > ! 
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function maxiai vector) 2 real; 

{This function finds the larsest component of the value of a.> 
var 

1 arses tso far : real 5 
f e n c e s i n d e K t y p e 7 
besin 

larsestsofar s= aCl]' 

{Establishes larsestsofar = maK(a[13)} 

for fence 5= 2 to limit do besin 

if larsestsofar < aCfence] then largestsofar aCfencel 
{Re-establishing larsestsofar = maK(a[l]t ... ^aCfence])} 

end? 

{So now larsestsofar = maK(aC13> ... >aClimit])} 
max 2= larsestsofar 
end {of max > ? 



function GCD(m*n- natural): natural? 
besin 

if n==0 then GCD := m else GCD s= GCCKn^m mod n); 

end; 

{This example of the use of forward demonstrates how mutual recursion 
is helpful in readins a parenthesized expression and convertins it to 
some internal form} 

function ReadOperand : formula? forward; 

function ReadExpression 5 formula? 
var 

this 5 formula; 
besin 

this s= ReadOperand; 

while IsOperator ( nextsym) do 

this 2= liakeFormul a( this * ReadOperator t ReadOperand)? 
ReadExpression := this 
end; 

function ReadOperand { s formula >? 
besin 

if I sOpen ( nextsym) then 
besin 

SkipSymbol ? 

ReadOperand := ReadExpression? 
{nextsym should be a close} 
SkipSymbol 
end 

else ReadOperand s= ReadElement 
end; 

6.6.3 Parameters 

6.6.3.1 General. The identifier-list in a 

val ue-par^eter-speci f ication shall be ^ list of value parameters. The 
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identifier-list in a var iabl e-'Parameter-speci f ication shall be a list 
of variable parameters. 

f ormal-parameter-l ist = 

formal -parameter-section 
f ormal-parameter-section> . 
formal-parameter-section > 

val ue-parameter-speci f ication ! 
variable-parameter-specification I • 
pr oce dura! -parame t e r-s peci f ication ! 
functional -parameter-speci f ication . 

NOTE. There is also a syntax rule for formal -parameter-sect ion in 
. 6.6.3.7 

val ue-parameter-speci f ication = 

identifier-list type-identifier . 
variable-parameter-specification = 

"var" identifier-list s " type-identifier . 
procedural-parameter-specification = 

procedure-heading . 
functional-parameter-specification = 

function-heading . 

An identifier that is defined to be a parameter-identifier for the 
region which Is the formal-parameter-list of a procedure-heading shall 
be designated a formal parameter of the block of the procedure-block* 
if any* associated with the identifier of the procedure-headins. An 
identifier that is defined to be a parameter-identifier for the region 
which is the formal-parameter-list of a function-heading shall be 
designated a formal parameter of the block of the function-block* if 
any* associated with the identifier of the function-heading. 

The occurrence of an identifier in the identifier-list of a 
val ue-parameter-speci fi cation or a var iabl e-parameter-speci f ication 
shall constitute its def ining-point as a parameter-identifier for the 
region that is the formal -parameter-1 ist closest-containing it and its 
def ining-Point as the associated variable-identifier for the region 
that is the jblock* if any* of which it is a formal parameter. 

The occurrence of the identifier of a procedure-heading in a 
procedural-parameter-specification shall constitute its de f ining-point 
as a parameter-identifier for the region that is the 
formal -parameter-1 ist closest-containing it and its def ining-point as 
the associated procedure-identifier for the region that is the block* 
if any* of which it is a formal parameter. 

The occurrence of the identifier of a function-heading in a 
functional-parameter-specification shall constitute its def ining-point 
as a parameter-identifier for the region that is the 
formal -parameter-1 is t closest-containing it and its de f in i ng-po in t as 
the associated function-identifier for the region that is the block* 
if any* of which it is a formal parameter. 
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NOTE. If the formal -parameter-list is contained in a 
procedural -parameter-sReci fication or a 

f unct ional -parame ter-'SPeci f icat ion > tine re is no corresponding 
procedure-block or function-block. 

6.6«3«2 Value parameters. The formal parameter and its associated 
variable-identifier shall denote the same variable. The formal 
parameter shall possess the type denoted by the type-identifier of the 
val ue-parameter-specif ication. The actual -parameter (see 6.7.3 and 
6.8.2.3) shall be an expression whose value is assienment-compatibl e 
with the type possessed by the formal parameter. The current value of 
the- expression shall be attributed upon activation of the block to the 
variable that is denoted by the formal parameter. 

6.6.3.3 Variable parameters. The actual -parameter shall be a 
variable-access- The actual -parameters (see 6.7.3 and 6.8.2.3) 
correspondins to formal parameters that occur in a sinsle 
variabl e-parameter-speci f ication shall all possess the same type. The 
type possessed by the actual -parameters shall be the same as that 
denoted by the type-identifier^ and the formal parameters shall also 
possess that type. The actual -parameter shall be accessed before the 
activation of the blocks and this access shall establish a reference 
to the variable thereby accessed durins the entire activation of the 
block? the correspondins formal parameter and its associated 
variable-identifier shall denote the referenced variable during the 
activation. 

An actual variable parameter' shall not denote a field which is the 
selector of a variant-part. An actual variable parameter shall not 
denote a component of a variable that possesses a type that is 
designated packed. . 

6.6,3j.4 Procedural parameters. The actual -parameter (see 6.7.3 and 
6.8.2.3) shall be a ^procedure-identi f ier that has a def inins-point 
contained by the program-block. The procedure denoted by the 
actual -parameter and the procedure denoted by the formal parameter 
shall have congruous formal-parameter-lists (see 6.6.3.6) if either 
has a formal-parameter-list. The formal parameter and its associated 
procedure-identifier shall denote the actual parameter during the 
entire activation of the block. 

6.6.3.5 Functional parameters. The actual -parameter (see 6.7.3 and 
6.8.2.3) shall be a function-identifier that has a defining-point 
contained by the program-block. The function denoted by the 
actual -parameter and the function denoted by the formal parameter 
shall have the same result-type and shall have congruous 
formal -parameter-1 ists (see 6.6.3.6) if either has a 
formal -parameter-1 i st . The formal parameter and its associated 
function-identifier shall denote the actual parameter during the 
entire activation of the block. 

6.6.3.6 Paframeter list congruity. Two f ormal-parameter-^1 ists shall be 
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congruous if they contain the same number of formal -parameter-^sect ions 
and if the formal -pararrieter-sect ions in corresponding positions match. 
Two formal -parameter-sect ions shall match if any of the statements 
that follow is true. 

(a) They are both value-parameter-speci f icat ions contai ning the same 
number of parameters and the type-identifier in each 
val ue-parameter-speci f ication denotes the same type. 

(b) They are both variable-parameter-specifications containing the 
same number of parameters and the type-identifier in each 
variable-parameter-specification denotes the same type, 

(c) They are both procedural-parameter-specifications and the 
f ormal-parameter-H sts of the procedure-headings thereof are 
congruous. 

(d) They are both functional-parameter-speci f icationst the 
f ormal-'parameter-l ists of the function-headings thereof are 
congruous^ and the type-identifiers of the result-types of the 
function-headings thereof denote the same type. 

<e) They are both conformant-array-parameter-specifications 
containing the same number of parameters and e<=iuivalent 
conf ormant-array-schemas . Two conf ormant-array-schemas shall be 
equivalent if all of the four statements which follow are true. 

(1) There is a single index-type-speci f iecat ion in each 
conf ormant-ar ray-schema. 

(2) The ordinal-type-identifier in each index-type-specification 
denotes the same type. 

(3) Either the (component) conf ormant-array-schemas of the 
conformant-array-'schemas are equivalent or the type-identifiers 
of the conf ormant-array-schemas denote the same type. 

<4) Either both conf ormant-array-schemas are 

packed-conf ormant-array-schemas or both are 

unpacked-conf ormant-array-schemas ■ 

NOTES 

1. The abbreviated conformant-array-schema and its corresponding 
full form are equivalent (see 6.6.3.7) 

2, The contents of (e) above do not apply to level 0. 
6.6-3.7 Conformant array parameters. 

NOTE, This clause does not apply to level 0. 

The occurrence of an identifier in the identifier-list of a 
conf ormant-array-parameter-speci fi cation shal 1 constitute its 
def ining-point as a parameter-identifier for the region that is the 
f ormal-parameter-l ist closest-containing it and its def ining-Point as 
the associated variable-identifier for the region that is the blocki 
if anyi of which it is a formal parameter. 

The occurrence of an identifier in an index-type-speci f ication shall 
constitute its def ining-point as a bound-identifier for the region 
that is the formal -parameter-1 ist closest-containing it and for the 
region that is the blocks if any^ whose formal parameters are 
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specified by that f ormal-parameter-Hstp 

f ormal-parameter-sect ion > 

con for man t-ar ray -parameter -5 pec ifi cation, 
conf ormant-array-^parame ter-spec ification = 

"var" identifier-list " : *' con formant-ar ray-schema . 
conformant-array-schema = ' 

(packed-conformant-array-schema ! 

unpacked-conf ormant-array-schema) . 
packed-con f or mant-ar ray-schema 

"packed" ''arrav^' "t" index-type-speci f ication "3" 

"of" type-identifier . 
unpacked-conf ormant-array-schema = 

"array" "C" index-type-speci f ication 

{ "5" index-type-specif ication > "]" "of" 

{ type-identifier I conformant-array-schema ) - 
index-type-speci f ication - 

identifier ".." identifier 

ordinal-type-identifier . 
bound-identifier = identifier . 
factor > bound-identifier . 

NOTE. There is also a syntax rule for formal -parameter-section in 
6.6.3.1. There is also a syntax rule for factor in 6.7.1. 

If a conformant-array-schema contains a conf ormant-array-schema ^ then 
an abbreviated form of definition may be used. In the abbreviated 
form> a sinsle semi-colon shall replace the se^^uence "3" "of" "array" 
"C" that occurs in the full form. The abbreviated form and the full 
form shall be equivalent. 

Exampl ess 

arrayCu..vJ TID of arrayU..ki T2] of T3 
arrayCu.aV: Tl? J..k3 T2] of T3 

Durins the entire activation of the block* the first bound-identifier 
of an index'-type-speci f ication shall denote the smallest value 
specified by the corresponding index-type (see 6.6.3.8) possessed by 
each actual -parameter > and the second bound-identifier of the 
index-type-speci f icat ion shall denote the larsest value specified by 
that index-type. 

The actual-parameters (see 6.7.3 and 6.8.2.3) corresponding to formal 
parameters that occur in a single 

conf ormant-array-parameter-speci f icatiqn shall all possess the $ame 
type. The type possessed by the actual -parameters shall be conformable 
(see 6.6.3.8) with the conformant-array-schema* and the formal 
parameters shall possess an array-type which shall be distinct from 
any other type* and which shall have a component-type that shall be 
that denoted by the type-identifier contained by the 
conformant-array-schema in the 

conf ormant-array-parameter-speci f ic^tion and which shall have the 
index-types of the type possessed by th<» actual-parameters that 
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correspond (see 6.6.3.6) to the index-type-speci f ications contained by 
the conf ormant-arr^y-schema in the 

conf or man t-array-paramet er-s pec i fi cat ion . 

NOTE. The type of the formal parameter can not be a string-type 
(see 6.4.3.2) because it is not denoted by an array-type. 

The actual-parameter shall be either a variable-access or an 
expression that is not a factor that is not a variable-access. If the 
actual -parameter is an expression* the value of the expression shall 
be attributed before activation of the block to an auxiliary variable 
which the prosram does not otherwise contain. The type possessed by 
this variable shall be the same as that possessed by the expression. 
This variable^ or the actual -parameter if it is denoted by a 
varxable'-access f shall be accessed before the activation of the blocks 
and this access shall establish a reference to the variable thereby 
accessed durins the entire activation of the block; the corresponding 
formal parameter and its associated variable-identifier shall 
represent the referenced variable durins the activation* 

NOTE. In usins an array variable A as an actual parameter 
corre^pondins to a formal parameter that occurs in a 
conformant-array-parameter-specification the use of an auxiliary 
variable is ensured by enclosing the variable-access A in 
parentheses. 

An actual-parameter that is a variable-access shall not denote a 
component of a variable that possesses a type that is designated 
packed. 



If the actual-parameter is an expression whose value is denoted by a 
variable-access that cl osest-contains" an identifier which has a 
def ining-occurrence in the identifier-list of a 

conf ormant-array-parameter-speci f icat ion f then 

<a) that identifier shall be contained by an indexed-var iabl e 
contained by the exf^ression^ and 

(b) the factor closest-containing the indexed-var iabl e shall 
cl Qsest-contain at least as many index-expressions as the 
conf ormant-array-parameter-speci f icat ion contains 
index-typg-speci fi cat ions . 

note;. This ensures that the type of the expression and the 

anonymous variable will always be known and that* as a 

consequence* the activation record of a procedure can be pf a 
fixed size. 

6.6.3.8 Conformability. 



NOTE* This clause does not apply to level 0. 

Given a type denoted by an array-type closest-containing a single 
index-type* and a conformant-array-schema closest-containing a single 
index-typ§-specif ication* then the index-type and the 
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1 ndex-type-speci f icat i on shall be designated as corresponding. Given 
two conf ormant-array-schemas cl osest-con tainins a single 
i ndeK-type--5peci fication> then the - two index-type-speci f i cat ions shall 
be desisnated as corresponding . Let Tl he an array-type with a single 
index-type and let T2 be the type denoted by the 
ordinal -type-identi fier of the index-type-speci f ication of a 
con f ormant--ar ray-schema cl osest-containing a singl e 

index-type-speci f icat ion ^ then Tl shall be conformable with the 
conf ormant-'array-schema if all the*^ fo 1 1 owing four statements are true. 

(a) The index-type of Tl is compatible with T2. 

(b) The smallest and largest values specified by the index-type of Tl 
lie within the closed interval specified by T2. 

(c) The component-type of Tl denotes the same type as that which is 
is denoted by the type-identifier of the con f ormant-array-schema^ 
or is conformable to the conf ormant-array-schema in the 
conformant-array-schema. 

(d> Either Tl is not designated packed and the 
conf ormant-array-schema is an unpacked-conf ormant-array-schema r 
or Tl is desisnated packed and the conformant-array-schema is a 
packed-conformant-array-schema 

NOTE. The abbreviated and full forms of a conformant-array-schema 
are e^^uivalent (see 6. 6. 3.7) • The abbreviated and full forms of 
an array-type are e<Ruivalent (see 6.4.3.2). 

It shall be an error if the smallest or largest value specified by the 
index-type of Tl lies outside the closed interval specified by T2. 

6.6.4 Re«^uired procedures and functions 

6.6a4.1 General. Re<=^uireci procedures and functions shall be 
predeclared. The re<=iuired procedures and functions shall be as 
specified in 6.6.5 and 6.6.6 respectively. 

NOTE. Re«?uired procedures and functions do not necessarily follow 
the rules siven elsewhere for procedures and functions. 

6.6.5 Re«^uired procedures 

6^6.5.1 General. The required procedures shall be file handling 
procedures! dynamic allocation procedures and transfer procedures, 

6.6.5.2 File handling procedures. Except for the application of 
rewrite or reset to the program parameters denoted by input or outputs 
the effects of app'^yins each of the file handling procedures rewrite^ 
putf reset and get to a file-variable f shall be defined by 
pr^-assert ions and post-assertions about f^ its components f.Li f.R> 
and f.M> and about the associated buffer-variable f"*. The use of the 
variable fO within an assertion shall be considered to represent the 
state or valuet as appropriate^ of f prior to the operations and 
similarly for fO'^ and f^f while f (within an assertion) shall denote 
the variable after the operation. 

It shall be an error if the stated pre-asser t ion does not hold 
immediately prior to any use of the defined operation. It shall be an 
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error if any variable explicitly denoted in an assertion of e<=^uality 
is undefined. The post-assertion shall hold prior to the next 
subsequent access to the fi1e> its components^ or its ' associated 
buf f er-var iabl e . The post-assertions imply corresponding activities on 
the external entities/ if any/ to which the file-variables are bound- 
These activities^ and the point at which they are actually performed* 
shall be implementation-defined. 

rewrite(f) pre-asser t i on 2 true. 

post-assertion! (f.L = f.R = S()) and 

(f.M = Generation) and 
( f is totally-undefined). 

(fO.M = Generation) and 
(fO.L is not undefined) And 
( fO.R = S( ) ) and 
( f 0""* is not undefined). 
(f.M = Generation) and 
(f.L ^ (fO.L'-SCfO^-) )) and 
(f.R = SO) and 
< f ^ is totally-undefined). 



put ( f ) pre-assert ion : 



post-assert ions 



•reset(f) pre-assert ion s The components fO.L and fO.R are not 

undefined. 
Fost-a^sertion! (f.L = S()) and 

(f.R ^ (fO.L'-fO.R-X) ) and 
(f.M = Inspection) and 
(if f.R = SO then (i'"' is 
total 1 y-unde fined ) 
else (f^- = f.R. first))* 



where* if f is of the type denoted by the 
r©«^uired structured-type-identifier text 
and if fO.L'^fO.R is not empty and if 
(fO.L'-fO.R) . last is not designated an 
end-of-line* then X shall be a sequence 
havins an end-of-line component as its 
only component; otherwise X = S(). 



9et(f) pre-assertion: (fO.M = Inspection) and 

(neither fO.L nor fO.R are undefined) and 
(fO.R <> SO). 

Post-assertion: (f.M = Inspection) and 

(f.L = (fO.L'-S(fO.R. first))) and 
(f.R = fO.R.rest) and 
(if f.R = SO then ( f ^ is 
total 1 y-undef ined) 
else (f^ = f.R. first)). 

When the file-variable f possesses a type other than that denoted by 
text* the required procedures read and write shall be defined as 
follows. 
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r«ad 



Read( f t vl f . . . f vn) where 
shall be e^^uivalent to 



vl 



rVn denote variable-accesses 



besin read(f^vl)? ... 5 read(f^vn> end 



Read(ffv) where 
esuival ent to 



V denotes a variable-access shall be 



begin v := f*"-5 9et(f) end 



NOTE. The variable-access is not a variable parameter. 
Consequently it may be a component of a packed structure and the 
value of the buffer-variable need only be assisnment-compat ibl e 
with it. 



Write(f>eii...fen)t 
equivalent to 



where el. ..en denote expressions 



shall 



be 



begin write( f ^el ) ; 



write(f#en) end 



Write(f^e)> where e denotes an expression shall be equivalent to 



besin f 



e; put(f) end 



NOTES. 1 
and pa^e* 



The required procedures read> writer readln> writeln* 
as applied to textfiles* are described in 6.9. 



2. Since the definitions of read and write include the use of set 
and putf the implementation-defined aspects of their 
post-assertions also apply. 

6,6.5.3 Dynamic allocation procedures 



new{ p) 



new(p>cl t . ^ • >cn> 



shall create a new variable that is 
totally-undefined^ shall create a new 

identi f y ins^-val ue of the pointer-type associated 
with pp that identifies the new variable* and 
shall attribute this ident i f y ins-val ue to the 
variable denoted by the variables-access p. The 
created variable shall possess the type that is 
the domain-type of the pointer-type possessed by 
p. 

shall create a new variable that is 
total 1 y-undefined» shall create a new 
identi f y ins-val ue of the pointer-type associated 
with Pf that identifies the new variable* and 
shall attribute this ident i f y ins-val ue to the 
variable denoted by the variable-access p. The 
created variable shall possess the record-type 
that is the domain-type of the pointer-type 
possesed by p and shall have nested variants that 
correspond to the case-constants cl*...fcn. The 
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case--cons tants shall be listed in order of 
increasing. nestins of the variant-parts. Any 
variant not specified shall be at a deeper level 
of nestins than that specified by cn. It shall be 
an error if a variant of a variant^part within the 
new variable becomes active and a different 
variant of the variant-part is one of the 
specified variants. 

dispose<«!) shall remove the identi f yins-val ue denoted by the 

expression s from the pointer-type of It shall 
be an error if the identi f y ins-val ue had been 
created usins the f orm new( p > cl ^ • . . ^ cn ) « 

dispose(€i7kl ♦ . - • ♦km)shal 1 remove the ident i f y ins-val ue denoted by the 

expression r from the pointer-type of The 
case-constants kl^...fkm shall be listed in order 
of increasing nestins of the variant-parts. It 
shall be an error if the variable had been created 
usins the form new( p > cl ^ . . . > cn ) and m is less than 
n. It shall be an error if the variants in the 
variable identified by are different from those 
specified by the case-constants klf...>km. 

NOTE. The removal of an identi f y ins-^/al ue from the pointer-type to 
which it belonss renders the identified variable inaccessible (see 
6.5.4) and makes undefined all variables and functions that have 
that value attributed (see 6.8.2.2). 

It shall be an error if s has a nil-value or is undefined. 

It shall be an error if a variable created usins the second form of 
new is accessed by the identi f ied-var iabl e of the variable-access of a 
factort of an assisnment-^tatement > or of an actual -parameter . 

6.6.5.4 Transfer procedures. Let a be a variable possessins a type 
that can be denot^ed by 
array Csl3 of T^ 

1st 2 be a variable possessins a type that can be denoted by 
packed s^rray C«2] of T* 

and u and v be the smallest and larsest values of the type s2* then 
the statement pack(aiitz) shall be equivalent to 

besin 
k := i? 

for J 88= u to V do 
besin 

zCJ] := aCk] J 

if J <> V then k := succ(k) 
end 

end 
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and the statement unpack(z^a# i) shall be e<=^uivalent to 



besin 
k 15 

for J 2=^ u to V do 

be^in 

aCk] s== zCJ]? 
if J <> V then k 
and 

end 



1= 5UCC(k) 



where J and k denote auxiliary variables which the program does not 
otherwise contain. The type possessed by J shall be s2^ the type 
possessed by k shall be sit and i shall be an expression whose value 
shall be assisnment-compat ibl e with si. 

6.6.6 Required functions 

6.6.6.1 General. The re«iuired functions shall be arithmetic functions! 
transfer functions^ ordinal functions and Boolean functions. 

6.6.6.2 Arithmetic functions. For the following arithmetic functions^ 
the expression x shall be either of real-type or i nteser-type . For the 
functions abs and ssrt the type of the result shall be the same as the 
type of the parameter^ x. For the remaining arithmetic functions* the 
result shall always be of real-type. 



abs (x ) 
sqr ( X ) 

s in ( X ) 
cos (x) 
exp( X > 

ln(x) 



s<^rt(x) 
arctan(x) 



shall compute the absolute value of x. 

shall compute the square of x. It shall be an error if 
such a value does not exist, 
shall compute the sine of x* where x 
shall compute the cosine of x* where 
shall compute the value of the base 
raised to the power x. 

shall compute the natural logarithm of 
than zero. It shall be an error if x is 



is in radians. 

X is in radians. 

of natural logarithms 



xt if X is greater 
not greater than 



zero . 

shal 1 compute 
not negative, 
shal 1 compute 
arctangent of 



the non-negative square root of x# if x is 

It shall be an error if x is negative. 

the principal valuer in radians* of the 

X. 



6.6.6.3 Transfer functions 

trunc(x> From the expression x that shall be of real-type* 
function shall return a result of integer-type. The 
of trunc(x) shall be such that if x is positive or 
then 0<=x-trunc(x)<l ; otherwise -Kx-trunc ( x ><=0. It 
be an error if such a value does not exist. 
Exampless 

truncO.S) yields 3 
trunc<--3.5) yields -3 
round(x) From the expression x that shall be 
function shall return a resOlt of 



this 
val ue 

zero 
shall 



positive or zerot round(x) shall 



of real-type* this 
integer-type. If x is 
be equivalent to 
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trunc( x+0.5) ^ otherwise rouncKx) shall be e<=iuivalent to 
truncCx-O.S) . 

It shall be an error if such a value does not exist. 
E>;afnplesJ 

round<3.5) yields 4 
rQund(-3o5) yields -4 



6.6.6.4 

ord(x ) 



chr (x) 



Ordinal functions 
From the expression x that shall be of an ordinal-type> this 
function shall return a result of inteser-type that shall be 
the ordinal number (see 6.4.2.2 and 6.4.2.3) of the value of 
the expression x. 

From the expression x that shall be of i n teger-type » this 
function shall return a result of char-type which shall be 
the value whose ordinal number is equal to the value of the 

such a character value exists. It shall be an 
character value does not exist. 



Expression x if 
error if such a 



For any valuer ch^ of char 
chr(ord(ch) ) - ch 



"type^ the followins shall be trues 



succ(x> From the expression x that shall be 
function shall return a result that 
as that of the expression (see 6 
yield a value whose ordinal number i 
of the expression xt if such a val 
error if such a value does not exist 

pred(x) From the expression x that shall be 
function shall return a result that 
as that of the expression (see 6 
yield a value whose ordinal number i 
the .expression xt if such a val 
error if such a value does not exist 



of an ordinal-type> this 
shall be of the same type 
.7.1). The function shall 
s one greater than that 
ue exists. It shall be an 

of an ordinal -type ^ this 
shall be of the same type 
.7.1). The function shall 
s one less than that of 
ue exists. It shall be an 



6.6.6.5 Boolean functions 

odd(K) From t^e expression x that shall be of inteser-^type > this 

function shall be e^iuivalent to the expression 
(abs(x) mod 2=1). 



eof(f) The parameter f shall be a file-variable; if the 

actual-parameter-list is omitted* the function shall be 
applied to the re«?uired textfile input ( see 6.10). When 
eof(f) is activatedf it shall be an error if f is 
undefined? othe-rwise the function shall yield the value 
true if f.R is the empty sequence (see 6.4.3.5) > otherwise 
false. 

eoln(f) The parameter f shall be a textfile; if the 

actual-parameter-l ist is omittedt the function shall be 
applied to the required textfile input ( see 6.10). When 
eoln(f) is activated* it shall be an error if f is 
undefined or if eof(.f) is true? otherwise the function 
shall yield^the value true if f.R. first is an end-of~line 
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6.7 EKPressions 

6.7.1 General. An exFraasion shall denote a value unless a variable 
denoted by a variable-access contained by the expression is undefined 
at the time of its use^ in which case that use shall be an error. The 
use of a variable-access as a factor shall denote the value* if any> 
attributed to the variable accessed thereby. Operator precedences 
shall be according to four classes of operators as follows. The 
operator not shall have the hishest precedence* followed by the 
mul tip! yins-DPerators I then the addi ns-operat ors and sisns* and 
finally* with the lowest precedence* the rel at ional -operators . 
Sequences of two or more operators of the same precedence shall be 
left associative. 

uns isned-cons tant = unsisned-number I character-str ins ! 

constant-identifier 1 "nil" . 
factor > variable-access I unsisned-constant 1 

f unct ion-desisnator 1 set-constructor I 
expression " ) " ! "not" factor . 

NOTE. There is also a syntax rule for factor in 6.6.3.7 

set-constructor = *'C" C member-des isnator 

C member-desisnator > ] . 
member-des isnator = expression C . . " expression 3 . 
term - factor { mul t ipl y ins'-operator factor > . 
simple-expression = C sign ] term -C addins-operator term > . 
expression = 

simple-expression [relational-operator simple-expression 1 . 

Any factor whose type is S* where S is a suhransie of T* shall be 
treated as of type T. Similarly* any factor whose type is set of S 
shall be treated as of the unpacked canonical set-of~T type* and any 
factor whose type is packed set of . S shall be treated as of the 
canonical packed set-of-T typep 

NOTE. Consequently an expression that consists of a sinsle factor 
of type S shall itself be of type T* and an expression that 
consists of a single factor of type set of S shall itself be of 
type set of T* and an expression that consists of a single factor 
of type packed ^set of S shall itself be of type packed set of T. 

A set-constructor shall denote a value of a set-type. The 
set-constructor C] shall denote that value in every set-type that 
contains no members. A set-constructor containing one or more 
member-desisnators shall denote either a value of the unpacked 
canonical set-of-T type or* if the context so re*=^uires* the packed 
canonical set-of-T typet where T is the type of every expression of 
each member-designator of the set-constructor. The type T shall be an 
ordinal-type. The value denoted by the set-constructor shall contain 
zero or more members each of which shall be denoted by at least one 
membei — designator of the set-constructor. 

The member-designator x* where x is an expression* shall denote the 
member that shall have the value x. The member-designator x..y* where 
X and y are expressions* shall denote zero or more members that shall 
have the values of the base-type in the closed interval from the value 
of X to the v/alue of y. 

NOTE. The member-designator x..y denotes no members if the value 
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of K is sreater than the value of y. 



Examples are as follows^ 



(a) Factorss 



(b) Terms: 



(c) Simple expressionss 



(d) Expressions? 



X 

15 

(x+y+z) 
sin(x+y ) 
Cred^ Cf 9reen] 
ClitSflO. .19f233 
not p 

x*y 

i/(l-i) 

( X <= y ) and ( y < z ) 



p or «i 
x+y 

-X 

huel hue2 
i*J -f 1 

X « 1.5 

P <= H 

p « q and r 

<i < J ) = (J < k) 

c in huel 



6.7.2 Operators 
6.7.2.1 General 



multiplyinp-operator I i "div" I "mod" I "and" . 

addins-opf rator * "^" I "-" I '*or" . 
relational -operator » 

A factor^ or a term* or a simple-expression shall be designated an 
operand. The order of evaluation of the operands of a dyadic operator 
fhall be implementation-dependent. 

NOTEt This means* for example* that the operands may be evaluated 
in textual order* or in reverse order* or in parallel or they may 
not both te evaluated. 
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6.7.2.2 Arithmetic operators- The types of operands and results for 
dyadic and monadic operations shall be as shown in tables 2 and 3 
respectively. 

Table 2. Dyadic arithmetic operations 



operator operation type of operands type of result 



+ 


addition 


integer-type 


) i nteser-type 






or real-type 


>if both 




subtraction 


inteser-type 


)operands are 






or real-type 


)of integer-type 




mul t ipl icat ion 


inteser-type 


) otherwise 






or real-type 


) real -type 


/ 


division 


inteser-type 


real-type 






or real-type 




div 


division with 


i nteser-typ€ 


intesei — type 




truncation 






mod 


modul 0 


inteser-type 


inteaer-type 



Table 3. Monadic arithmetic operations 



operator operation 



type of operand 



type of result 



identity 
sisin'-inversion 



inteser-type 
real -type 
inteser-type 
real -type 



inteser-type 
real -type 
i n teger-type 
real-^type 



NOTE. The symbols - and * are also used as set operators (see 
6.7.2.4). 

A term of the form x/y shall be an error if y is zero^ otherwise the 
value of x/y shall be the result of dividing x by y. 

A term of the form i div J shall be an error if J is zero> otherwise 
the value of i div J shall be such that 
abs(i) - abs(J) < abs((i div J) * J) <= abs(i) 

where the value shall be zero if abs ( i Xabs (J ) # otherwise the sign of 
the value shall be positive if i and J have the same sisn and negative 
if i and J have different signs. 

A term of the form i mod J shall be an error if J is zero or negative^ 
otherwise the value of i mod J shall be that value of (i-(k^«^j)) for 
integral k such that 0 <= i mod J < J. 
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NOTE. Only for i >= 0 does the relation 

(1 diy J) ♦ J i mod J « i 

hold. 

The required constant-identifier maxint shall denote an 
implementation-defined value of inteser-type . This value shall satisfy 
the foH owing conditions: 

(a) All intesral values in the closed interval from -maxint to -^maxint 
shall be values of the inteser-type. 

(b) Any monadic operation performed on an inteser value in this 
interval shall be correctly performed according to the 
mathematical rules for inteser arithmetiCir 

(c) Any dyadic integer operation on two integer values in this same 
interval shall be correctly performed according to the 
mathematical rules for integer arithmetic f provided that the 
result is also in this interval. 

<d) Any relational operation on two integer values in this same 
interval shall be correctly performed according to the 
mathematical rules for integer arithmetic* 

The results of the real arithmetic operators and functions shall be 
approximations to the corresponding mathematical results* The accuracy 
of this approximation shall be implementation-defined. 

It shall be an error if an integer operation or function is not 
performed according to the mathematical rules for integer arithmetic. 

6f7.2.3 Boolean operators. Operands and results for Boolean operations 
shall be of Boolean-type. Boolean operators or# and and not shall 
denote respectively the logical operations of disjunction* conjunction 
and negation. 

©oolean-expressiofY ^ expression . 

A Boolean-expression shall be an express ion ^that denotes a value of 
Bop leant- type. 

6r7\2.4 Set operators. The types of operands and results for set 
operations shall be as shown in table 4. 

Tabl e 4. Set operations 



operator operation type of oper^d^nds type of result 



^ set union ) ) 

)a ) 

set difference ^canonical ) same as the 

)set-of-T type ) operands 

♦ set intersection ) ) 
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6.7.2-5 Relational operators. The types of operands and results for 
relational operations shall be as shown in table 5. 

Table 5. Relational operations 



operator type of operands type of result 



= <> any sinnplet Boolean-type 

pointer or string-type 
or canonical set~of-T type 

< > any simple or string-type Boolean-type 

<= >= any simple or string-type Boolean-type 

or canonical set-of-T type 

in left operand:any ordinal type T Boolean-type 

right operands 

a canonical set-of-T type (see 6.7.1) 



The operands of <>> >^ and <= shall be either of compatible 
types^ the same canonical set-of-T type* or one operand shall be of 
real-type and the other shall be of integer-type. 

The operators <>t <f > shall stand for "equal to'S "not e<=^ual to"# 
"less than" and "greater than" respectively. 

Except when applied to sets* the operators <= and >= shall stand for 
"less than or ©qiual to" and "greater than or e^qiual to" respectively. 

Where u and v denote simple-expressions of a set-type* u <= v shall 
denote the inclusion of u in v and u >= v. shall denote the inclusion 
of V in u- 

NOTE. Since the Boolean-type is an ordinal-type with false less 
than truet then if p and «i are operands of Boolean-type* p = «^ 
denotes their e^iuivalence and p <= q means p implies 

When the relational operators = *<>*< ^ > t <= * >= are used to 
compare operands of compatijble string-types (see 6.4.3.2)* they denote 
lexicographic relations defined below. Lexicographic ordering imposes 
a total ordering on values of a string-type. If si and s2 are two 
values of compatible string-types then* 

si = s2 iff for all i in Cl..n3: slCi] s2Ci3 

si < s2 iff there exists a p in Cl..n]! 

(for all i in CI. .P~n: slCiD = s2Ci]) and slCp] < s2Cp] 
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The operator in shall yield the value true if the value (3f' the operand 
of ordinal-type is a member of the value of the set-type^ otherwise it 
shall yield the value false. 

6.7.3 Function designators. A f unct ion-des isnator shall yield the 
value of the function denoted by the function-identifier of the 
f unction-desisnator . The f unction-desisnator shall specify the 
activation of the function. If the function has any formal parameters 
the f unc t ion-desisnator shal 1 contain a list of actual -parameters that 
shall be bound to their corresponding formal parameters defined in the 
function-declaration. The correspondence shal 1 be established by the 
positions of the parameters in the lists of actual and. formal 
parameters respectively. The number of actual -parameters shall be 
e«^ual to the number, of formal parameters. The types of the 
actual -parameters shall correspond to the types of the formal 
parameters as specified by 6.6.3. The order of evaluation^ accessing 
and binding of the actual -parameters shall be 

imp! erne n tat ion-^de pen dent . 

function-designator = function-identifier 

C actual-parameter-list ] . 

actual -parameter-1 ist = 

actual-parameter < % actual-parameter > *' ) " • 
actual-parameter = expression ! variable-access \ 

procedure-identi fieri 

function-identifier . 

Examples: Sum(af63) 

GCD(147tk) 
sin(x+y ) 
eof(f) 
ord(f^) 



6.8 S'.taternent s 

6-8.1 GGrieral. Statements shall denote alsorithmic actions^ and shall 
be GKecuiablf. Thty may be pre fined by a label. 

A label occurrins in a statement S shal 1 be designated as prefixins S* 
and shall be allowed to occur in a go to-s tat ement G (see 6,8..2.4) if 
and only if any of the following three conditions is satisfied* 

(a) S contains G. 

(b) S is a statement of a s tatement'-se<=[UGnce containing G. 

(c) S is a statement of the statement-sequence of the 
compound-statement of the statement-part of a block containing G. 

statement E label 1 ( simple-statement I 

structured-statement ) • 

NOTE. A so to-statement within a block may refer to a label in an 

enclosing blocks provided that the label . prefixes a 

simple-statement or structured-statement at the outermost level of 
nesting of the block* 

6,8.2 Simple-statements 

6.8.2.1 General. A simple-statement shall he a statement not 
containing a statement*. An empty-statement shall contain no symbol and 
shall denote no action. 

simp! e-statement - 

empty-statement I assignment-statement ! 

procedure-statement { go to-statemen t . 
empty-statement - . 

6.8.2.2 Assignmen t-stata-ments . An assignment-statement shal 1 
attribute tl'ie value of the expression of the assignment-statement 
either to the variable denoted by the variable-access of the 
assignment-statement f or to the function-identifier of the 
assignment-statement 5 the value shall be assignment-compatible with 
the type possessed by the variable or function-identifier. The 
function-block associated (6.6.2) with the function-identifier of an 
assignment-statement shall contain the assignment-statement. 

assignment-statement = 

( variable-access 1 function-identifier ) = expression ■ 

The decision as to the order of accessing the variable and evaluating 
the expression shall be impTementat ion-dependent 5 the access shall 
establish a reference to the variable during the remaining execution 
of the assignment-statement. 

The state of a variable or function when the variable or function does 
not have attributed to it a value specified by its type shall be 
designated undefined. If a variable possesses a structured-type f the 
state of the variable when every component of the variable is 
total 1 y-undef ined shal 1 be designated total 1 y-undef ined. 

Totally-undefined shall be synonymous with undefined if the variable 
does not possess a structured-type. 



Examples: x y-fz 

p (l<=i) and (i<100) 
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i := ssr (k) - (i*J ) 
huel := Cbl uef succ ( c) ] 
pI*^. mother := true 

6.8.2.3 Procedure-statements. A procedure-statement shall specify the 
activation of the block of the procedure-block associated with the 
procedure-identifier of the procedure-statement. If the procedure has 
any formal parameters the procedure-statement shall contain an 
actual-parameter-1 ist f which is list of actual -parameters that shall 
be bound to their corresponding formal parameters defined in the 
procedure-declaration. The correspondence shall be established by the 
positions of the parameters in the lists of actual and formal 
parameters respectively. The number of actual -parameter s shall be 
esual to the number of formal parameters. The types of the 
actual -parameters shall correspond to the types of the formal 
parameters as specified by 6.6.3. The order of evaluation^ accessing 
and binding of the actual -parameters shall be 
impl e men tat ion-dependent , 

procedure-statement = procedure-ident i f ier 

C actual -parameter-1 ist 3 - 

Examples! printheading 

transpose (a# n #m) 
bisect ( fct>-l .0>+l .O^x) 
AddVectors(mC13r(mC23 ) t (mCkD) ) 

6.8.2.4 Goto-statements . A got o-s tatement shall indicate that further 
processing is to continue at the program-point denoted by the label in 
the goto-s tatement and shall cause the termination of all activations 
except 

(a) -the activation containing the program-point and 

(b) any activation containing the activation-point of an activation 
required by these exceptions not to be terminated. 

goto-6 tatement = "goto" label , 

6.8.3 Structured-statements 

6.8.3.1 General. 

structured-statement = 

compound-statement ! conditional-statement I 

repetitive-statement I wi th-statement . 
statement-sequence. = stati?ment { statement > . 

The execution of a statement-sequence specifies the execution of the 
statements of the statement-sequence in textual order* except as 
modified by execution of a goto-s tatement . 

6.8.3.2 Compound-statements. A compound-statement shall specify 
execution of the statement-sequence qf the compound-statement. 

compound-statement = "begin" statement-sequence "end" . 
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EKamples besin z s= x ? x 5= y " y 2 end 

6.8.3.3 Condi tional -statements . 

condi tional --statement = if-statement I case-statement . 

6.8.3.4 I f-s tatements 

if~statement = "if" Boolean-expression "then" statement 

C else-part 3 . 
else-part = "else" statement . 

If the Boolean-expression of the if-statement yields the value true> 
the statement of the if-statement shall be executed. If the 
Boolean-expression yields the value falser the statement of the 
if-statement shall not be executed and the statement of the else-part 
(if any) shall be executed. 

An if-statement without an else-part shall not be followed by the 
token else. 

NOTE. An else-part is thus paired with the nearest preceding 
otherwise unpaired then^ 

Exampi es t 

if X < 1.5 then 2 := x+y else 2 1.5 
if plO nil then pl := pl^. father 

if J =0 then 

if i - 0 then wr i tel n ( ' inde f ini te ' ) 

else writel n( ' infinite' ) 
else writeln( i / J ) 

6.8.3.5 Case"-stat^ments. The values denoted by the case-constants of 
the case-constant-lists of the case-list-elements of a case-statement 
shall be distinct and of the same ordinal-type as the expression of 
the case-index of the case-statement. On execution of the 
case-statement the case-index shall be evaluated. That value shall 
then specify execution of the statement of the case-list-element 
closest-containing the case-constant denoting that value. One of the 
case-constants shall be equal to the value of the case-index upon 
entry to the case-statement. 

It sh^ll be an error if none of the case-constants is equal to the 
value of the case-index upon entry to the case-statement. 

NOTE. Case-constants are not the same as statement labels. 
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case-statement = 

*'case" case-index "of" 

case-list-element {"5" case-Ust-e 1 ement > C"?"] "end" . 
case-list-element = case-constant-list "s" statement . 
case-index = expression . 

Example: 

case operator of 

pIuss X s= x+y? 

minus s x x-y ; 

times: x 5= x*y 
end 

6 ,8. 3. 6. Repetitive-statements . Repetitive-statements shal 1 speci fy 
that certain statements are to be executed repeatedly. 

repetitive-statement = repeat-statement J 

while-statement ! f or-statement . 

6.6.3.7 Repeat-statements 

repeat-statement = "repeat" statement-se<^uence 

"until" Boolean-expression . 

The statement-sequence of the repeat-statement shall be repeatedly 
executed (except as modified by the execution of a so to-statement ) 
untir the Boolean-expression of the repeat-statement yields the value 
true on completion of the statement-sequence. The statement-sequence 
shall be executed at least once* because the Boolean-expression is 
evaluated after execution of the statement-sequence. 

ExamPi e: 

repeat k i mod J 5 

i :== J ? 

J 2= k 
until J « 0 

6.8.3.8 While-statements 

while-statement — "while'' Boolean-expression "do" statement . 
The while-statement 

while b do body 
shall be equivalent to 
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begin 

if b then 

repeat 

b 0 d y ■ 

until not (b) 
end 

EKaffiPless 

while i>0 do 

begin if odd(i> then z ?= z*Ky 
i i div 2* 
K 5= sqr(K) 
end 

while not eof(f) do 

besin process (f*"" >; sfet(f) 
end 

6*8, 3»9 For-statements ir The f or-statement shall specify that the 
statement of the f or-statement is to be repeatedly execLfted while a 
progression of values is attributed to a variable that is designated 
the control-variable of the f or-s tatement 

f or-statement - "for" control-variable initial-value 

{ "to'^ t '^iownto'' } final-value '^do" staterrfeent . 
control-variable - entire-variable^ - 
initial-value = expression « 
final-value = expression . 

The control-variab 1 e shall be an entire-variable whose identifier is 
declared in the variable-declaration-part of the block 
cl osest-containins the f or-staten-rent . The control-var iabl e shal 1 
possess an ordinal -type f and the initial-value and final-value shall 

I be of a type cotrrpatible with this type* The statement 0f a 
f or-statentent shall rrot contain an assisnins-ref erence (see 6.,5.. 1)^ to 
the control -var iabl e of the f or-statennent « The value o f the 
final-value shall be assignment-coFTtpatibl e with the control-variable 
when the initial-value is assigned to the control -var iabl e ^ After a 
f or-stat ef^ent is executed (other than being left by a sota-statement 
leading out of it) the control-variable shall be undefined. Apart from 
the restrictions imposed by these req^uirementsf the f Dr-statemient 

for V el to e2.do body 

shall be equivalent to 
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tempi i»* 1 1 1 
temp2 e2J 
if tempi <= temp2 then 
besin 

V s= tempi ; 
body; 

while V <> temp2 do 
besin 

V := succ(v) ; 
body 

end 
end 
end 

and the f or~s tatement 

for V s= el downto e2 do body 
shall he equivalent to 

begin 

tempi != el5 
temp2 5= e25 
if tempi >= temp2 then 
besin 

V := tempi? 
body? 

while V <> temp2 do 
besin 

V s== pred(v) i 
body 

end 
end 
end 

where tempi and temp2 denote auxiliary variables that ttie prosram does 
not otherwise contain^ and that possess the type possessed by the 
v^iriable v if that type is not a subranse-type ; otherwise the host 
type of the type possessed by the variable v. 

Examples: 

for i := 2 to 63 do 

if a,Ci] > max then max != aCi] 
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for i := 1 to 10 do 
for J := 1 to 10 do 
begin 
K := 0? 

for k := 1 to 10 do 

K := X + mlCi>k3*m2Ck>J3 5 
m [ i > J ] 5 = K 
end 

for i:= 1 to 10 do 
for j := 1 to i--l do 
mCiJCj] := 0.0 

for c != blue downto red do <^(c) 

6.8.3.10 With-statements 

wi th-statemen t = 

"with" record-variable-list "do" 

statement . 
record-variable-list = 

record-variable C ">" record-variable > . 

A wi th-statement shall specify the execution of the statement of the 
wi th-statement . The occurrence of a record-variable as the only 
record-variable in the record-variable-list of a wi th-statement shall 
constitute a def inins-point of each of the field-identifiers 
associated with components of the record-type possessed by the 
record-variable as a f iel d-desisnator-identi f ier for the resion which 
is the statement of the wi th-statement ? each applied occurrence of a 
f iel d-desisnator-identi f ier shall denote that component of the 
record-variable which is associated with the field-identifier by the 
record-type. The record-variable shall be accessed before the 
statement of the wi th-statement is executed^ and that access shall 
establish a reference to the variable durins the entire execution of 
the statement of the with-statement . 

The statement 

with vl tv2f - . . ♦ vn do s 

shall be e<RUivalent to 

with vl do 
with v2 do 
■ • ■ 

with vn do s 
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with date do 

if month = 12 then 

besin month 8= 1; year s= year 1 

end 

else month mo nth+1 

shall be eqiuivalent to 

if date. month = 12 then 

begin date. month 5= l; date. year s= date.year+1 
end 

else date. month s= date .month-»-l 
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6.9 Input and output 

6.9.1 General. Textfiles (see 6-4.. 3. 5) that are identified in the 
prosram-parameters (see 6.10) to a Pascal prosram shall provide 
lesible input and output. 

6.9.2 The procedure read. The syntax of the parameter list of read 
when applied to a textfile ^hall be^ 

read-parameter-list = 

( "C f i 1 e-variabl e 'S"] variable-access 
variable-access)'')'* . 

If the file-variable is omitted^ the procedure shall be applied to the 
required textfile input. 

The followins requirements shall apply for the procedure read (where f 
denotes a textfile and vl.«.vn denote variable-accesses possessing the 
char-type (or a subrange of char-type) ^ the inteaer-type (or a 
subrange of integer-type ) > or the real-type): 

(a) read( f f vl t . . . ♦ vn) shall be e<=iuivalent to 

begin read(f>vl); ... J read(f^vn) -end 

(b) If V is a variable-access possessing the char-type (or subrange 
thereof)^ read(ftv) shall be e^iuivalent to 

begin v := f'^J get(f) end 

NOTE. The variables-access is not a variable parameter. 
Consequently it may be a component of a packed structure and the 
value of the buffer-variable need only be assignment-compatible 
with it. 

(c) If V is a variable-access possessing the integer-type (or subrange 
thereof)* read(fw) shall cause the reading from f of a sequence 
of characters. Preceding spaces and end-of-l ines shall be skipped. 
It shall be an error if the rest of the sequence does not form a 
fiigned-inteser according to the syntax of 6.1.5. The value of the 
signed-integer thus read shall be assignment-compatible with the 
type possessed by v> and shall be attributed to v. Reading shall 
cease as soon».as the buffer-variable f"* does not have attributed 
to it a character contained by the longest sequence available that 
forms a signed-integer. 

(d) If V is a variable-access possessing the real-type* read(f*v) 
• shall cause the reading from f of a sequence of characters. 

Preceding spaces and end-of-lines shall be skipped. It shall be an 
error if the rest of the sequence does not form a signed-number 
according to the syntax of 6.1.5. The value denoted by the number 
thus read shall be attributed to the variable v. Reading shall 
cease as soon as the buffer-variable f*^ does not have attributed 
to it a character contained by the longest sequence available that 
forms a signed-number. 

(e) When read is applied to fr it shall be an error if the 
buffer-variable f^ is undefined or the pre-assert ions for set do 
not htfld (see 6.4.3.5). 
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6.9.3 The procedure readln. The sy-ntax of the parameter list of readln 
shall bes 

read 1 n-parame ter-1 i s t = 

(file-variable 1 variable-access) 
{%" variable-access} . . 

Readln shall only be applied to textfiles. If the file-variable or the 
entire readl n-parameter-l ist is omitted^ the procedure shall be 
applied to the re<=iuired textfile input. 

readl n( f f vl f . . , t vn) shall be e<=iuivalent to 

besin r ead ( f ^ vl * . . . # vn ) 5 readln(f) end 

readln(f) shall be equivalent to 

begin while not eoln(f) do 9et(f)? 9et(f) end 

NOTE. The effect of readln is to place the current file 
position Just past th^ end of the current line in the 
textfile. Unless this is the end-of-file position* the current 
file position is therefore at the start of the next line. 

6.9.4 The procedure write. The syntax of the parameter list of write 
when applied to a textfile shall bes 

wr ite-parameter-1 ist = 

" ( *'C f i 1 e-var iabl e wr i te-parameter 

wri te-parameter) ) , 
wri te-parameter = 

expression C"s" expression C*':" expression 3 3 . 

If the file-variable is omitted* the procedure shall be applied to the 
re<^uired textfile output. When write is applied to a textfile it it 
shall be an error i f ^ f is undefined or f.M = Inspection (see 6.4.3.5). 
An application of write to a textfile f shall cause the 
buffer-variable to become undefined. 

6.9,4.1 Multiple parameters. Wr i te ( f * p1 # . . . f pn ) shall be equivalent to 

besin write( f >f1 ) J ... ; write(.frpn) end 

where f denotes a textfile* .and pl»...fPn denote write-parameters. 

6.9.4a2 Wri te-parameters . The wri te-parameter s p shall have the 
f ol 1 owins forms : 

esTotalWidthrPracDisits e:TotalWidth e 

where e is an expression whose va'lue is to be written on the file f 
and may be of integer-type* real-type* char-type* Boolean-type or ^ 
string-typd* and where TotalWidth and FracDisits are e.xpressions of 
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inteser-type whose values are the field-width parameters. The values 
of TotalWidth and FracDisits shall be greater than or e^^ual to one; it 
shall be an error if either value is less than one. 

Write(ffe) shall be e«?uivalent to the form wr i te ( f > e sTotal Width ) > 
usinsi a default value for TotalWidth that depends on the type of e; 
for i n teser-type * real-type and Boolean-type the default values shall 
be imp! ementation-de fined. 

Wri te ( f ^ e sTotal Width sFracDigi ts ) shall be applicable only if e is of 
real-type (see 6.9.4.5.2). 



6.9.4.3 Char-type. If e is of char-type^ the default value of 
TotalWidth shall be one. The representation written on the file f 
shall be: 

(TotalWidth - 1) spaces^ 
the character value of e. 

6.9.4.4 Inteser-type . If e is of in teser-type t the decimal 
representation of e shall be written on the file f. Assume a function 

function InteserSize ( x s inteser ) s inteser 5 
{ returns the number of disits* such that 
10 to the power (z-1) <= abs(x) < 10 to the power z > 

and let IntDisits be the positive inteser defined bys 

if e = 0 

then IntDisits 2- 1 

else IntDisits i?= IntegerSize ( e ) ; 

then the representation shall consist ofs 



(1) if TotalWidth >= IntDisits + 1 : 
(TotalWidth - IntDisits - 1) spacps^ 

the sign character: if e < Of otherwise a space* 

IntDisits digit-characters of the decimal 
representation of abs(e). 

(2) If TotalWidth < IntDigits + 1: 
if e < 0 the sign character 

IntDigits digi t-characters of the decimal 
representation of abs(eJ. 

6.9.4.5 Real-Type. If e is of real-type* a decimal representation of 
the number e» rounded to the specified number of significant figures 
or decimal places* shall be written on the file f. 

6.9.4.5.1 The floating-point representation. 

Write(f *e:TotalWidth) shall cause a floating-point representation of e 
to be written. Assume functions 
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function TenPower ( Int s inteser ) s real ; 
{ Returns 10.0 raised to the power Int > 

function Rea]Size ( y : real ) s integer > 
i Returns the valuer Zf such that 
TenPower ( z-1 ) <= abs(y) < TenPowerCz) > 

function Truncate ( y s real 5 DecPlaces : integer ) 
: real ? 

{ Returns the value of y after truncation 
to DecPlaces decimal places > 

let ExpDisits be an implementation-defined value representing the 
number of disi t-characters written in an exponent; 

let ActWidth be the positive integer defined by- 

if TotalWidth >= ExpDisits 6 
then ActWidth := TotalWidth 
else ActWidth := ExpDisits -f 6; 

and let the non-negative number eWritten and the integer ExpValue be 
defined by: 

if e = 0.0 

then besin eWritten s= 0.0; ExpValue s= 0 end 

el se 

begin 

eWr i tten abs ( e ) ; 

ExpValue RealSize ( eWritten ) - 1 5 
eWritten eWritten / TenPower ( ExpValue ) » 
DecPlaces s= ActWidth-ExpDisi ts-5; 
eWritten := eWritten 

O.S'Jt'TenPower ( ^Decplaces ){ 
if eWritten >- 10.0' 

then 

begin 

eWritten != eWritten / 10.0;. 
^xpVa^ue s= ExpValue 4- 1 
end; 

eWritten s= Truncate ( eWritten^ DecPlaces ) 
end; 

then th^ floating-point repj^esentation of the value of e shalT consist 
of : 

the sign character # 

( if (e < 0) and (eWritten > 0)* otherwise a space ) 

the leading digit-character of the decimal 

representation of eWritten* 
the character ^ . ' # 
the next DecPlaces digi t-char^icters 

of th^ decimal representation of eWritten* 
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an implementation-defined exponent character 

(either 'e' or 'E')> 
the sisn of ExpValue 

( if EKpValue < Of otherwise )f 

the ExpDisits digit-characters of the decimal 

representation of ExpValue 

(with leadins zeros if the value requires them). 
6.9.4.5,2 The fixed-point representation. 

Write ( f^esTotal Width :FracDi9lts) shal 1 cause a fixed-point 
representation of e to be written. Assume the function InteserSize 
described in clause 6.9. 4. 4# and the functions TenPower and Truncate 
described in clause 6.9.4.5.15 

let eWritten be the non-negative number defined by: 

if e = 0.0 

then eWritten := 0.0 

else 

begin 

eWritten := abs(e) ; 
eWritten := eWritten 0.5 

* TenPower ( - FracDigits )? 
eWritten 3= Truncate ( eWritten# FracDisits ) 
end; 

let IntDigits be the positive integer defined by: 

if trunc ( eWritten ) = 0 
then IntDigits s= 1 

else IntDigits:^ IntegerSize ( trunc(eWri tten) )? 

and let MinNumChars be the positive integer defined by: 

MinNumChars := IntDigits FracDigits •♦•1? 
if (e < 0.0) and (eWritten > 0) 

then MinNumChars s= MinNumChars + required} 

then the fixed-point representation of the value of e shall consist 
of: 

if Total Width >= MinNumChars* 

(TotalWidth - MinNumChars) spaces* 
the character if (e < 0) and ( eWri tten > 0) # 

the first IntDigits digit-characters of the decimal representation 

of the value of eWritten* 
the character ' . ' * 

the next FracDigits digit-characters of the decimal representation 
of the value of eWritten. 

NOTE. At least MinNumChars characters are written. If TotalWidth 
is less than this value* no initial spaces are written. 
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6.9.4.6 Boolean-type. If e is of Boolean-type/ a representation of the 
word true or the word false (as appropriate to the value of e) shall 
be written on the file f. This shall he e<^uivalent to writins the 
appropriate character-strings 'True' or 'False' (see 6.9.4.7)* where 
the case of each letter is implementation-defined* with a field-width 
parameter of TotalWidth- 

6.9.4.7 Str insf-types . If the type of e is a string-type with n 
components* the default value of TotalWidth shall be n. The 
representation shall consist of: 

if TotalWidth > n> 

(TotalWidth - n) spaces* 

the first through nth characters of the value of e in that order. 

if 1 <= TotalWidth O n* 

the first through TotalWidthth characters in that order. 

6.9.5 The procedure writeln. The syntax of the parameter list of 
wr i te 1 n shal 1 be s 

wr i tel n-parameter-1 ist = 

[•'(" (file-variable I wr i te-parameter ) 
{"*" write-parameter> " ) "] . 

Writeln shall only be applied to textfiles- If the file-variable or 
the wri tel n-'parameter-Hst is omitted* the procedure shall be applied. 
to the required textfile output. 

wr i te 1 n ( f * pi * . . . * pn ) shall be equivalent to 

begin wr i te ( f * p1 * . . . * pn ) ; writeln(f) end 

Writeln shall be defined by a pre-assertion and a post-assertion usins 
the notation of 6.6.5.2. 

pre-assertion s ( f 0 is not undefined) and (fO.M = Generation), 
post-assertion: (f.L = (fO.L~S(e))) and 

( f is totally-undefined) and 

(f.R = S()) and (f.M = Generation)* 

where S(e) is the sequence consisting solely of the 
end-of-line component defined in 6.4.3.5. 

NOTE. Writeln(f) terminates the partial line* if any^ which is 
being generated. By the conventions of 6.6.5.2 it is an error if 
the pre-^assert ion is not true prior to writeln(f). 

6.9.6 The procedure page. It shall be an error if the pre-assertion 
re«iuired for writeln(f) (see 6.9.5) does not hold prior to the 
activation of page(f). If the actual -parameter-1 ist is omitted the 
procedure shall be applied to the re<^uired textfile output. Page(f) 
shall cause an implementation-defined effect on the textfile f* such 
that subsequent text written to f will be on a new page if the 
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textfile.is printed on a suitable device^ shall perform an implicit 
writeln(f) if f.L is not empty and if f.L.last is not the end-of~line 
component (see 6.4.3.5)^ and shall cause the buffer-variable f"' to 
become totally-undefined. The effect of inspectins a textfile to which 
the page procedure was applied during generation shall be 
impl ementat ion-dependent . 

6.10 Programs. 

program = program-heading program-block . " . 

program-heading = 

'•program** identifier C program-parameters " ) *' 3 . 

program-parameters = identifier-list . 
program-block - block . 

The identifier of the program-heading shall be the program name which 
shall have no significance within the program. The identifiers 
contained by the program-parameters shall be disti-nct and shall be 
designated program parameters. Each program parameter shall be 
declared in the variable-declaration-part of the block of the 
program-block. The binding of the variables denoted by the program 
parameters to entities external to the program shall be 
impl ementat ion-dependent # except if the variable possesses a file-type 
in which case the binding ^hall be implementation-defined. 

NOTE. The external representation of such external entities is not 
defined by this standards nor is any property of a Pascal program 
dependent on such representation. 

The occurrence of the identifier input or the identifier output as a 
program parameter shall constitute its def ining-point for the region 
that is the program-block as a variable-identifier of the re<=iuired 
type denoted by text. Such occurrence of the identifier input shall 
cause the Post-assert ions of reset to hold* and of output* the 
pogt-assertions of rewrite to hold* prior to the first access to the 
te)<tfile or its associated buffer-variable. The effect of the 
application of the required procedure reset or the required procedure 
rewrite to either of these textfiles shall be implementation-defined. 

Examples! 

program, copy ( f*g ) ; 
var f*g: file of real? 
begin reset(f); rewrite(g); 
while not eof( f) do 

begin g^^ := f*^; get(f); put(g) 

end 

end. 
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program copy text ( input ^ output ) ; 
{This program copies the characters and line structure of the 
textfile input to the textfile output.} 
var chJ char; 
begin 

while not eof do 
begin 

whi 1 e no t eo 1 n do 

begin read ( ch ) 5 write(ch) 
end? . 
readln? write! n 

end 
end. 
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prosram t6p6p3p3d2revised(oijtput ) ; 
var slobalonef gl obal two 5 inteser? 

procedure dummy? 
begin 

wr i te 1 a ( ' f ai 1 4 . . . 6 . 6.3.3-2' ) 
end {of dummy >? 

procedure p( procedure f (procedure ff; procedure ss); 
procedure b)? 
var localtop 5 integer; 
procedure rJ 
begin 

if global one =^ 1 then 
begin 

if (global two <> 2) or (l ocaltop <> 1) then 
writel n( ' fai 11.. .6.6.3,3-2' ) 

end 

else if global one = 2 then 
begin 

if (global two <> 2) or (localtop <> 2) then 

writel n( ' fai 12. . .6.6.3.3-2' ) 
else 

writel n( 'pass . . .6.6,3.3-2' ) 

end 
e 1 s e 

writel n( ' fai 13. . .6.6.3.3-2' ) 5 

global one := global one -f 1 

end { of r }J 
begin { of p > 
global two != global two + If 
local tpp global two? 
if global twa = 1 then 

p{ffr> 
else 

f(gir) 
end { gf p} ? 

procedure «( (procedure f? procedure g); 
begin 
fs 
g 

end { of «i>s 

begin 

global Qnp 2=^ 15 
global two := 0? 
p(«if dummy) 
end. 

6.11 Hardware representation. The representation for lexical tokens 
and separators given in 6.1 constitutes a reference reprt?5entation for 
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program interchange. A processor shall accept all the reference 
symbols and all the alternative symbols except for any symbol whose 
representation contains a character not available in the character set 
of the processor. The reference symbols and the alternative symbols 
are siven in table 6. 

Table 6. Alternative symbols 



Re f erence Symbol 


Alternative Symbol 


^\ 


• @ or f 


r 


(* 


> 


*) 


c 


< . 


3 


. ) 



NOTES. 1. The alternative comment delimiters are equivalent to the 
reference comment delimiters^ thus a comment may beiHtin with 
and close with or besin with and close with 

2. For any other purpose than prosram interchange > this 
representation is not re<Ruired^ and so does not exclude the 
existence of other alternative symbols. 



VmCKLim^ ~ ULtmDnn. x:.ou 

APPENDIX A. COLLECTED SYNTAX 

actual -parameter = expression I variable-access ! 

procedure-identifier I 
function-identifier < 

actual -parameter-l ist = 

actual-parameter { % " actual -parameter > " > " . 

addins-operator = + " ! I "or" . 

apos trophe-image = " ^ ' , 

array-type = "array" "C" index'-type i "r" index-type > "]" "of" 

component-type . 

array-variable = variable-access . 

assignment-statement = 

( variable-access ! function-identifier ) "-' = " expression . 

base-type = ordinal-type , 

block = label -decl arat ion-part 

constant-definition-part 
type-definition-part 

var iab 1 e -dec 1 arat i on- par t 

pr ocedur e-and- f unct i on-dec 1 arat i on-part 
statement-part . 

Boolean-expression = expression . 

bound-identifier = identifier . 

buffer-variable = file-variable "'^" . 

case-constant = constant . 

case-constant-list = case-constant { case-constant } . 
case-index = expression . 

case-1 ist-el ement = case-constant-list "s" statement . 

case-statement = 

"case" case-index "of" 

case-list-element {"5" case-list-element > C";".] "end" 

character-string = "'" string-element 
{str ing-e 1 ement> . 

component-type = type-denoter . 

companent-variabl e = i ndexed-var iabl e I field-designator . 
compound-statement = "begin" statement-sequence "end" . 
conditional-statement = if-statement I case-statement . 
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con formant-arr ay-par ameter-s pec i ficatiQn = 

*'var identi f ier~l ist " : " c-on formant-ar ray-schema . 

con f ormant-array-schema = 

( packed-con f ormant-array-schema I 
unpacked-con f ormant-array-schema ) . 

constant = [sign] (unsigned-number 1 constant-identifier) 
I character-string . 

constant-definition = identifier constant . 

constant-definition-part = ["const" constant-definition "?" 

•[constant-definition ";"]-3 . 

constant-identifier = identifier . 

control -variabl e = entire-variable . 

digit ^ 0 " ! " 1 " ! " " ! " 3 " I " 4 " 1 " ^ " [ " <t *' j 7 [ " j *' ^/ " 

disi t-se«^uence = digit fdigit} . 

directive = letter Cletter 1 digit> . 

domain-type = type-identifier . 

else-part = "else" statement . 

empty-statement = . 

entire-variable = variable-identifier . 
enumer^ted-type = "(" identifier-list ")" . 
expression = 

simple-expression [ relational-operator simple-expression ] . 

factor = variable-access I unsigned-constant I bound-identifier ! 
function-designator I set-constructor i 
expression ")" I "not" factor . 

field-designator = record-variable "-" field-specifier 1 
field-designator-identifier . 

field-identifier = identifier . 

field-list = 

I (fixed-part C ";" variant-part ] I variant-part) [";"] ] . 
field-specifier = field-identifier . 
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file-type = "file" "of" component-type . 
file-variable = variable-access . 
final-value = expressio.n . 

fixed-part = record-section -C "?" record-sect i on > . 

f or-staterrvent = "for" con tro 1 -var iabl e = " i n i t ial ~val ue 

( "to" i "downto" ) final-value "do" statement 

f ormal -parame t er-1 ist = 

" ( " forma! -paramet er-sec t i on 

-C";" formal -parameter-section> ")" . 

formal -parameter-section = 

val ue-parameter-specif icat ion ! 

var iabl e-parameter--s peci ficati on I 

procedural-parameter-specification I 

functional -paramet er-speci fi cat ion \ 

con formant-ar ray- paramet er-speci fi cat i on . 

function-block = block . 

function-declaration = 

function-heading "i" directive ! 

f unction-i dent i ficat ion " ? " f unction-bl ock 1 

f unct ion-headins ";" function-block . 

function-designator = function-identifier 

C actual -parameter-! ist 3 . 

f unct i on-heading = 

"function" identi f ier C formal -paramet er-1 ist] 
":" result-type . 

function-identification = 

"function" function-identifier . 

function-identifier = identifier . 

functional-parameter-speci f ication = 
function-heading . 

goto-statement = "goto" label . 

identi fied-variabl e = pointer-variable "'^" . 

identifier = letter -Cletter 1 digit> . 

identif ier-1 ist = identifier {'">" identifier > . 
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i f ^statement = "if" Bool ean-eKPression "then" statement 
C e 1 se-par t 3 . . 

index-^expression ^ expression * 

index-type ~ ordinal-type . 

index-type-speci fi cation = 

identifier identifier 
" : " ordinal -type-identifier . 

indexed-var iabl e - 

array-var iab 1 e " C " i ndex-express ion 
•C "*" index-expression > . 

ini t ial -val ue = expression . 

label = digi t-5e*=^uence . 

label-declaration-part = ["label" label -C"^" label} "?^'3 . 
1 etter = "a'' i "b" ! "c" ! "d" I "e" I " f " i "g" \ "h" 1 "i " ! "J " ! "k" ! " 1 " 1 "m" ! 

II > il I 11 r\ 'I i >l n <> < if a < r. 'I > H ^ II I II II I II > . It I IK / >< I H H > H «/ H < ^ v.- >' > H -r H 

n I Q I p I R I r I s I X I u I V I w I X I y i z • 
member-designator expression C expres-sion 1 . 

mul tiplying-operator ~ "-J^" ! "/" I "div" I "mod" 1 "and" . 
new-ordinal -type = enumerated-type I subranse-type - 
new-poin ter-type - ""'"" domain-type . 

new-structured- type = C "packed*' 3 unpacked-s true tu red-type . 

new-type = new-ordinal -type I new-structured-type I 
new-pointer-type . 

ordinal-type = new-ordinal -type 1 

integer-type I Boolean-type J char-type I 
ordinal -type-identi fier . 

ordinal-type-identifier == identifier . 

packec|-con for man t-ar ray-schema = 

"packed" "array" " I " index-type-speci fi cat ion " 3 " 
"of" type-identifier . 

pointer-type = new-pointer-type I pointer-type-identi f ier . 

pointer-type-identi f ier = type-identifier . 

point^r-^var iabl e = variable-access . 
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procedural-parameter-specification = 
procedure-^headins . 

procedure-^and-f unction-dec 1 arat i on-part = 

{(procedure-declaration 1 function-declaration) . 

procedure-block = block . 

procedure-declaration = 

procedure-headins directive 1 

procedure-identification ; *' procedure-block I 
procedure-headins *' 5 " procedure-block . 

procedure-headins = 

'^procedure" identifier C formal -parameter-! ist ] 

procedure-identification = 

'* procedure" procedure -identifier . 

procedure-identifier = identifier . 

procedure-statement = procedure-identifier 

C actual -parameter-1 is t 3 . 

program = program-headi ns " ; " program-block " . . 

program-block = block . 

program-heading = 

"program'* identifier I program-parameters ) " ] . 

program-parameters = identifier-list • 

read-parameter-list = 

"(**Cf ile-variable %"3 variable-access. 
€%" variable-access}")" . 

readl n-parameter-1 ist = 

C"<" (file-variable I variable-access) 
{•S" variable-access} ")"] . 

record-section = identifier-list type-denoter . 

record-type = "record" f iel d-1 ist "end" . 

record-variable = variable-access . 

record-variable-list = 

record-variable { "#" record-variable } . 

relational-operator = 
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repeat-statement = "repeat^' statements-sequence 

"unti 1 " Bool ean-eKpression « 

repetitive-statement = repeat-statement I 

while-statement I f or-s tatement . 

result-type = simple-type-identifier ! 
pointerrtype-iden t i f ier - 

scale-factor = sisned-inteser • 

set-constructor = "C" C member-designator 

'C member-des isnator > 3 . 

set-type = *'set" "of" ba$e-type . 

sign = I . 

sisned-inteser = IsisnJ unsisned-inteser . 
sisned-number == sisned-inteser I sianed-real . 
sisned-real = Csisinl unsisned-real . 

simple-expression = C sisn 3 term *C addins-operator term > . 

simple-statement = 

empty-statement ! assignment-statement I 
procedure-statement J soto-s tatement . 

simple-type = ordinal-type ! real-type . 

simple-type-identifier = type-identifier . 

special-symbol = j n^.i . n^i, , ../m ; m^.m i,,;;.. 1 n>n ; ^ 

n n j II ^ II I II ■ II j ii ■ II I II /Nil I II ^ II I II ^ 11 j 

"<>"!"<="l">="l":="!".."! word-symbol . 

statement = L label 3 ( simple-statement i 

structured-statement ) . 

statement-part = compound-statement . 

statement-sesuence = statement C "f" statement > . 

string-character = 

onp-o f-a-set-of-impl ementat fon-de f ined-characters . 

string-element = apostrophe-image I string-character . 
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structured-statement = 

compound-statement I condi tional -statement ! 
repetitive-statement I wi th-s tatefnent . 

structured-type = new-structured-type 1 

structured-type-identifier . 

structured-type-identifier = type-identifier . 

subranse-type = constant constant . 

tas-field = identifier . 

ta9-type = ordinal -type-identifier . 

term = factor <. mul tipl yins-operator factor > . 

type-definition = identifier type-denoter . 

type-definition-part = ["type" type-definition "5" 

{type-def inition "?">3 . 

type-denoter = type-identifier ! new-type . 

type-identifier = identifier . 

u n pa c k e d-c 0 n f 0 r ma n t -a r r a y - s c h e m a = 

"array" " C " i ndex-type-speci fi cat ion 

{ "5" index-type-specif ication > "3" "of" 

( type-identifier 1 conformant-array-schema ) . 

unpacked-structured-type = array-type I record-type i set-type ! 

f i 1 e-type . 

u n s i 9 n e d- c o n s t an t = u n s i 9 n e d - n u mb e r 1 c h ar a c t e r - s t r i n b !. 

constant-identifier ! "nil" . 

unsigned-integer = disi t-se<iuence . 

unsigned-number - unsigned-integer 1 unsisned-real . 

unsigned-real = 

unsigned-integer digit-sequence C"e" seal e-f actor 3 1 

unsigned-integer "e" scale-factor . 

val ue-parameter-speci f ication = 

identifier-list ":" type-identifier . 

variable-access = entire-variable { component-variable I 
identif ied-variabl e I buffer-variable . 

variables-declaration = identifier-list ":" type-denoter . 
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var iab 1 e-.dec 1 arat i on-par t = C'var" var iabl e-de c 1 ara t ion " ? " 

•[variable-declaration . 

variable-identifier ^identifier. 

var iabl e-parameter-speci fi cat ion = 

"var" ident i f ier~l ist type-identifier . 

variant = case-cons tant~l is t field-list . 

variant-part = "case" variant-selector "of" 

variant •[ ";" variant > . 



variant-selector = Etas-field ":"] tag-type , 

while-statement = "while" Boolean-expression "do" statement 

wi th-^tatement = 

"with" r e cor d-var iabl e-1 ist "do" 
statement . 



word-symbo 1 



"and" ! "array" "begin" 1 "case" ! "consi " I "div" 1 
"do" I "down to" 1 "el se" ! "end" ! "f il e" I "for" I 
"function" 1 "goto " I " i f " I " i n " 1 "label " 1 "mod" 1 
"nil " I "not" ! "of" I "or" ! "packed" I "procedure" I 
"program" I "record" 



"to" 1 "type" ! "until " I 



'repeat" ! "set" 1 "then" 1 
Var"! "while"["with" 



wr i te-parameter - expression [":" expression C":" expression 3 ] 

wr i te-parameter- 1 ist - 

"("[file-variable "^"] wr i te-parameter 
•C'W" wr i te-parame ter> " ) " . 

Write! n-parameter-1 ist = 

C"(" (file-variable i wri te-parameter ) 
{"♦" wr ite-parameter} " ) " 3 . 
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IMPLEMENTATION NOTES ONE PURPOSE COUPON 



0 DATE 

1. IMPLEMENTOR/MAINTAINER/DISTRIBUTOR (* Give a person, address and phone number. *) 



2. IVIACHINE/SYSTEM CONFIGURATION Any known limits on the configuration or support software required, e.g. 

operating system. *) 



3. DISTRIBUTION f* Who to asic, how it comes, in what options, and at what price. *J 



4. DOCUMENTATION (* ^hat is available and where. *) 



5 . MAINTENANCE (* Is it unmaintained, fully maintained, etc? *} 



6. STAN DARD (* How does it measure up to standard Pascal? Is it a subset? Extended? How. *) 



7. MEASUREMENTS (* Of its speed or space. *) 



8. RE LI ABI LITY (* Any information about field use or sites installed. *) 



9. DEVELOPMENT METHOD (* How was it developed and what was it written in? ""j 



10. LIB RARY SU PRO RT Any other support for compiler in the form of linkages to other languages, source libraries, etc. *) 



(FOLD HERE) 



PLACE 
POSTAGE 
HERE 



Bob Dietrich 
M.S. 92-134 
Tektronix, Inc. 
P.O. Box 500 
Beoverton, Oregon 97077 
U.S.A. 
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NOTE: Pascal News publishes all the checklists it 
gets. Implementors should send us their checklists 
for their products so the thousands of committed 
Pascalers can judge them for their merit. Otherwise 
we must rely on rumors. 



Please feel free to use additional sheets of paper. 



IMPLEMENTATION NOTES ONE PURPOSE COUPON 



POLICY: PASCAL USERS GROUP (15-Sep-80) 



Purpose: The Pascal User's Group (PUG) promotes the use of the programming 
language Pascal as well as the ideas behind Pascal through the 
. ' vehicle of Pascal Nev/s . PUG is intentionally designed to be non 

political/ and as such, it is not an "entity" which takes stands on 
issues or support causes or other efforts however well-intentioned. 
Informality -is our guiding principle; there- are no officers or 
meetings. of PUG. 

The increasing availability of Pascal m'akes it a viable alternative 
for software production and justifies its further use. We all 
strive to make using Pascal a respectable activity. 

Membership :. Anyone can join PUG, particularly the Pascal user, teacher, 
maintainor, implementor, distributor, or just plain fan. 
Memberships from libraries are also encouraged. See the 
ALL-PURPOSE COUPON for details. 



Facts about Pascal, THE PROGRAMMING LANGUAGE: 

Pascal is" a small, practical, and general-purpose (but not all-purpose ) 
programming language possessing algorithmic and data structures to aid 
systematic programming . Pascal was intended to be easy to learn and read by 
humans, and efficient to translate by computers. 

Pascal has met these goals and is being used successfully for : 
teaching programming concepts 
^ developing reliable "production" software 
^ implementing software efficiently on today's machines 
* writing portable software 

Pascal implementations exist for more than 105 different computer systems, and 
this" number iriereases every month. The "Implementation Notes" section of. 
Pascal News describes how to obtain them. 

The standard reference and tutorial manual for Pascal is: 

Pascal - User Manual and Report (Second, study edition) 
by Kathleen Jensen and Niklaus Wirth. 

Springer-Verlag Publishers: New York, Heidelberg, Berlin 
1978 (corrected printing), 167 pages, paperback, $7.90. 

Introductory textbooks about Pascal are described in the "Here and There" 
section of Pascal News. 

The programming language, Pascal, was named after the mathematician and 
religious fanatic Blaise Pascal (1623-1662). Pascal is not an acronym. 

Remember, Pascal User's Group is each individual member's group. We currently 
have more than 3500 active members in more than 41 countries, this year Pascal 
- News is averaging more than 100 pages per issue. 



